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Vorwort 


PASCAL ist eine höhere Programmier¬ 
sprache, die Anfang der 70er Jahre von 
Nikolaus Wirth an der ETH-Zürich ent¬ 
wickelt wurde. Es ist eine strukturierte 
Sprache, die ähnlich wie Algol 60 ist, 
aber wesentlich leistungsfähiger. 

Das vorliegende Buch richtet sich an 
den Anfänger, der noch nie program¬ 
miert hat, wie auch an Fortgeschrittene, 
die schon Programmiererfahrung ha¬ 
ben. Dabei ist insbesondere an solche 
Leser gedacht, die vielleicht schon BA¬ 
SIC programmiert haben und nun auf 
PASCAL umlernen möchten. Das Buch 
ist auch für Leser geeignet, die sich mit 
Mikroprozessoren beschäftigen wollen, 
oder schon damit beschäftigt haben und 
es sind deshalb in gesonderten Kapiteln 


Pascal-Systeme beschrieben, die auf Mi¬ 
krorechnern laufen. Die Beispiele im 
Buch wurden ebenfalls auf einem Mi¬ 
krorechner erstellt. Auch die Leser, die 
sich vorher nur mit Hardware beschäf¬ 
tigt haben und sich nun auch der Soft¬ 
ware widmen möchten, kommen auf ih¬ 
re Kosten. 

PASCAL dringt immer mehr als Pro¬ 
grammiersprache für Mikrorechner vor 
und es ist daher unerläßlich, sich mit 
PASCAL zu beschäftigen, wenn man für 
die Zukunft gerüstet sein und mit Mi¬ 
krorechnern umgehen will. PASCAL 
setzt sich aber auch an Großrechnern 
durch und verdrängt FORTRAN immer 
mehr, das gerade für technische Aufga¬ 
ben immer noch sehr oft verwendet 
wird. 
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Wichtiger Hinweis 

Die in diesem Buch wiedergegebenen Schaltungen und Verfahren werden ohne Rücksicht auf die Pa¬ 
tentlage mitgeteilt. Sie sind ausschließlich für Amateur- und Lehrzwecke bestimmt und dürfen nicht 
gewerblich genutzt werden*). 

Alle Schaltungen und technischen Angaben in diesem Buch wurden vom Autor mit größter Sorgfalt 
erarbeitet bzw. zusammengestellt und unter Einschaltung wirksamer Kontrollmaßnahmen reprodu¬ 
ziert. Trotzdem sind Fehler nicht ganz auszuschließen. Der Verlag sieht sich deshalb gezwungen, 
darauf hinzuweisen, daß er weder eine Garantie noch die juristische Verantwortung oder irgendeine 
Haftung für Folgen, die auf fehlerhafte Angaben zurückgehen, übernehmen kann. Für die Mitteilung 
eventueller Fehler sind Autor und Verlag jederzeit dankbar. 


*) Bei gewerblicher Nutzung ist vorher die Genehmigung des möglichen Lizenzinhabers einzuholen. 
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1 PASCAL 


1.1 Die Programmiersprache 
PASCAL 

1.1.1 Die Entwicklung zu höheren 
Programmiersprachen 

Sehr ähnlich wie bei den Großrechnern 
verlief auch die Entwicklung bei den 
Mikroprozessoren. Am Anfang wurde 
direkt in Maschinensprache program¬ 
miert. Dann kamen einfache Assembler 
hinzu, die zunächst nur auf großen Re¬ 
chenanlagen lauffähig waren. Sie wur¬ 
den Cross-Assembler genannt und mit 
ihnen wird auch heute noch program¬ 
miert. Etwas später kamen auch residen¬ 
te Assembler hinzu, die auf dem Mikro¬ 
prozessorsystem selbst laufen konnten. 
Mit den Assemblersprachen lassen sich 
recht leistungsfähige Programme erstel¬ 
len. Danach wurden einfachere höhere 
Programmiersprachen wie BASIC oder 
PL/M (ein Abkömmling von PL/l) und 
schließlich auch FORTRAN auf Mikro¬ 
rechnern verfügbar. Als Krönung wurde 
dann auch PASCAL implementiert. Die¬ 
se blockorientierte Sprache bietet viele 
Vorteile, die in den nachfolgenden Kapi¬ 
teln noch verdeutlicht werden. PASCAL 
gibt es inzwischen für eine Vielzahl von 
Mikrorechnern und es verbreitet sich 
immer mehr. 


1.2 PASCAL - Grundbefehle 

1.2.1 Grundlagen 

Als erstes wollen wir mit einem kleinen 
Programmbeispiel starten. Es hat die 
Aufgabe 23 • 14 zu berechnen und aus¬ 
zugeben. Abb. 1.2.1-1 zeigt das dazugehö- 


PROGRAM be l spiel (OUTPUT) ", 
BE6IN 

WRITELN(23*14) 

END. 

Abb. 1.2.1-1 Einfaches PASCAL-Programm 

rige Programm. Es beginnt mit dem Wort 
PROGRAM, das dem PASCAL-Überset- 
zer zeigt, daß damit ein PASCAL-Pro¬ 
gramm beginnt. Danach folgt der Name 
des Programms, das hier „beispiel“ ge¬ 
nannt wird. Alle Befehle, die der Compi¬ 
ler versteht, sind in den Programmli- 
stings mit großen Buchstaben geschrie¬ 
ben, um dem Leser zu verdeutlichen, 
welche Worte frei gewählt werden kön¬ 
nen und welche eine feste Bedeutung 
haben und sonst nicht verwendet wer¬ 
den dürfen. Das Wort „beispiel“ ist eine 
solche freie Bezeichnung. In Klammern 
folgt der Begriff „OUTPUT,“ der angibt, 
daß bei dem Programm eine Ausgabe er¬ 
folgen soll. Der eigentliche Programm¬ 
teil ist mit „BEGIN“ und „END.“ geklam¬ 
mert. Die Berechnung und Ausgabe von 
23 14 erfolgt mit dem Befehl WRITELN 
(23 • 14). 

Die Abfolge von Befehlen kann in 
PASCAL am elegantesten durch soge¬ 
nannte Syntaxdiagramme dargestellt 
werden. Abb. 1.2.1-2 zeigt die dafür ver¬ 
wendeten Symbole. Beim Beschrei¬ 
bungsaufruf ist in einem Kasten ein Na¬ 
me eingetragen, für den es ein weiteres 
Syntaxdiagramm gibt. Ein runder Ka¬ 
sten deutet an, daß ein sogenanntes Ter¬ 
minalsymbol vorliegt. Dies sind Zei¬ 
chen, die der Compiler direkt erkennt 
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Beschreibungsaufruf 



Terminalsymbol, Endzeichen 


CAL abgedruckt. Damit kann genau fest¬ 
gestellt werden, in welchen Kombinatio¬ 
nen Sprachkonstruktionen von der De¬ 
finition her erlaubt sind. Das Syntaxdia¬ 
gramm kann als Nachschlagewerk ver¬ 
wendet werden, um in Zweifelsfällen 
festzustellen, ob ein entworfener Pro¬ 
grammteil vom Compiler akzeptiert 
werden kann oder nicht. 


Flußrichtung 


n a m e Name einer Bezeichnung 

Abb. 1.2.1-2 

Symbole bei Syntaxdiagrammen 




Abb. 1.2.1-3 Syntaxdiagramm 
für einen PASCAL-Namen 


und die an dieser Stelle stehen müssen. 
Mit der Flußrichtung wird angegeben, in 
welcher Richtung das Syntaxdiagramm 
zu lesen ist, ähnlich wie bei einem Fluß¬ 
diagramm. Mit „name“ wird schließlich 
ein Syntaxdiagramm bezeichnet. 

Im Anhang sind alle Syntaxdiagram¬ 
me für die Definition der Sprache PAS- 


Abb. 1.2.1-3 zeigt ein kleines Beispiel 
dafür, das gleich eine praktische Bedeu¬ 
tung besitzt. Freie Bezeichnungen in 
PASCAL sind z. B. Variablennamen, Pro¬ 
zedurnamen usw. Wie ein solcher Name 
aufgebaut sein darf, zeigt das Syntaxdia¬ 
gramm. Dazu werden erst die Begriffe 
Buchstabe und Ziffer erklärt. Ein Buch¬ 
stabe kann ein Zeichen „A“ bis „Z“ sein, 
eine Ziffer ist ein Zeichen „0“ bis „9“. Da¬ 
bei sind „A“, oder „0“ Terminalsymbole. 
Ein „Name“ kann nun ein Buchstabe 
sein, ein Buchstabe gefolgt von einem 
Buchstaben, ein Buchstabe gefolgt von 
einer Ziffer, ein Buchstabe gefolgt von 
einem Buchstaben, gefolgt von einem 
Buchstaben und so weiter. Das heißt, ein 
Name muß mit einem Buchstaben an¬ 
fangen, und eine Folge von Buchstaben 
und Ziffern kann den Rest des Namens 
bilden. 

Beispiel: 

Gültige Namen: 

X 

Y 

N14D ALPHA 

DIESISTEINLANGERNAME 

Ungültige Namen: 

IC 

TEST.NAME 

NAMEMIT— 

Reservierte Wörter dürfen ebenfalls 
nicht als Name verwendet werden. Dies 
geht aber aus dem Syntaxdiagramm 
nicht hervor, da das Syntaxdiagramm 
eben nur die Syntax, nicht aber die Se¬ 
mantik beschreibt. 
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Reservierte Namen sind: 


AND 

ARRAY 

BEGIN 

CASE 

CONST 

DIV 

DO 

DOWNTO 

ELSE 

END 

FILE 

FOR 

FUNCTION GOTO 

IF 

IN 

LABEL 

MOD 

NIL 

NOT 

OF 

OR 

PACKED 

PROCEDURE 

PROGRAM 

RECORD 

REPEAT 

SET 

THEN 

TO 

TYPE 

UNTIL 

VAR 

WHILE 

WITH 



Die Namensliste muß natürlich um die 
jeweiligen Symbole ergänzt werden, die 
als Erweiterung in dem Compiler des je¬ 
weiligen Herstellers aufgenommen 
wurden. 

Trennzeichen: 

Neben den Namen gibt es auch noch 
weitere Trennzeichen in PASCAL. Ein 
Beispiel ist das Zeichen „{“ oder die Se¬ 
quenz die den Anfang eines Kom¬ 
mentars darstellt. Das Ende des Kom¬ 
mentars wird durch das Zeichen „}“ oder 
der Sequenz „*)“ angezeigt. Nun kann 
ein beliebiger Text innerhalb der Kom¬ 
mentarklammern stehen. { Dies ist ein 
Kommentar in einem PASCAL-Pro- 
gramm } Weitere Trennzeichen sind: 

+ — / : = , 

;:*—<>(€— 

H > ( ) [ ]{ > 

t 

Ablauf einer Programmerstellung 
Abb. 1.2.1-4 zeigt den Ablaufplan für eine 
Programmerstellung. Ein PASCAL-Pro- 
gramm wird üblicherweise zunächst mit 
einem Texteditor eingetippt. Ein Text¬ 
editor ist ein Programm, das die Eingabe 
von Texten ermöglicht. Dabei wird das 
Programm zunächst auf einem Spei¬ 
chermedium festgehalten, um später 
dem PASCAL-Compiler zur Verfügung 
zu stehen. Bei Großrechnern wird als 



Test \_n 

fehlerfrei? / 


j 

Q Programm fertig ) 

Abb. 1.2.1-4 

Ablauf einer Programmentwicklung 

Speichermedium meist eine Platte ein¬ 
gesetzt, bei Mikrorechnern kommt übli¬ 
cherweise eine Floppy dafür in Frage. 
Das Programm wird anschließend mit 
dem Compiler übersetzt. Der Compiler 
steht dabei eine der Maschine verständ¬ 
lichere Form des PASCAL-Programms 
her. Gleichzeitig wird aber auch eine 
Fehlerliste ausgegeben, die angibt, wel¬ 
che Fehler bei der sprachlichen Kon¬ 
struktion des Programms gemacht wur¬ 
den: Zum Beispiel die Angabe von 
PRGRAM, anstelle von PROGRAM bei 
der Überschrift. 

Das Programm muß im Fehlerfall wie¬ 
der editiert und ein neuer Übersetzer¬ 
lauf durchgeführt werden. 

Ist das Programm fehlerfrei, so kann es 
gestartet werden. Dabei wird es mit ei- 
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nem Lader oder durch einen Interpreter 
in den Hauptspeicher zum Ablauf ge¬ 
bracht. Dabei können wieder Fehler auf¬ 
tauchen, die entweder das Laufzeitsy¬ 
stem entdeckt, wie Fehler DIVISION 1/0 
oder die man selbst bemerkt. Es wieder¬ 
holt sich der Editier- und Übersetzungs¬ 
lauf solange, bis auch der letzte Test als 
fehlerfrei gilt. 


1.2.2 Daten und Zuweisungen 

Namen sind ja schon im vorherigen Ka¬ 
pitel erklärt worden und werden hier 
nur noch angewendet. 

Andere wichtige Elemente sind die 
Darstellung von Zahlen und Zeichen in 
PASCAL. 

Es wird dabei zwischen Ganzen- und 
Real-Zahlen unterschieden. Ganze- 
Zahlen zum Beispiel sind: 12 -13 
45465600 0. REAL-Zahlen sind: 2.3 
-4.5E-3 0.000002. 

Die genaue Definition ist im Anhang 
unter „Ganze Zahl vorzeichenlos“ und 
„Zahl vorzeichenlos“ als Syntaxdia¬ 
gramm dargestellt. 

Zeichen werden in Anführungszei¬ 
chen geschrieben, also z. B.: 

’Z’ ’Zeichenkette mit Leerzeichen’ ’ ’ 
Namen können in PASCAL mit einem 
konstanten Wert versehen werden. Sie 
heißen dann Konstante. 

Damit der PASCAL-Compiler weiß, 
daß es sich um eine Konstantendefini¬ 
tion handelt, muß das Wort CONST ge¬ 
schrieben werden. 

Beispiel: 

CONST 
pi= 3.1412; 
leerzeichen = ’ 
maximum = 1000; 

Die einzelnen Definitionen werden 
durch Semikolons getrennt. Der Wert 
dieser Konstanten kann nicht erneut 
verändert werden. Namen können aber 


auch als Variable deklariert werden, so 
daß der Wert beliebig geändert werden 
kann. 

Dazu gibt es das reservierte Wort 
VAR. Nun genügt aber nicht allein die 
Angabe eines Namens, sondern es muß 
auch noch gesagt werden, für welchen 
Typ der Name verwendet werden soll, 
also ob er nur Ganze-Zahlen erhalten 
soll, oder Zeichen usw. Dazu gibt es wei¬ 
tere Symbole, sie lauten: 

INTEGER REAL BOOLEAN CHAR 

Nun kann mit der Definition begon¬ 
nen werden. Beispiel: 

VAR 

zaehler : INTEGER; 

Zeichen : CHAR; 
wahr : BOOLEAN; 
ergebnis : REAL; 

Auch hier wird die Trennung durch Se¬ 
mikolons vorgenommen. Gleiche Typen 
können aber auch durch Kommatas ge¬ 
trennt werden: 

VAR 

i, k, zaehler : INTEGER; 
zeichenl, zeichen2 : CHAR; 


Mit diesen Namen kann nun gearbeitet 
werden. Der Name „zeichenl“ soll z. B. 
für eine spätere Ausgabe der Wert be¬ 
kommen, dies wird durch eine Zuwei¬ 
sung erreicht und sieht dann so aus: 
zeichenl : = 7 

„Zähler“ soll den Wert 5 erhalten: 
zaehler : = 5 

Nun kann nicht nur zugewiesen, son¬ 
dern auch gerechnet werden, 
zaehler : — zaehler + 1; 
ergebnis : = 23 • 45 + 3 
Für mathematische Operationen gibt es 
Standardfunktionen und Operatoren: 

H— • / vier Grundrechenarten 

( ) für Verschachtelungen 

DIV MOD Ganzzahldivision und 

Modulofunktion 
ABS (X) Absolutbetrag 

SQR (X) Das Quadrat einer Zahl 
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TRUNC (x) 

Abschneiden der 
Nachkommastellen 

ROUND (X) 

Runden einer Zahl 

SIN (X) 

Sinuswert 

COS (X) 

Cosinus 

ARCTAN (X] 

Arcustangens 

LN (X) 

Natürlicher 

Logarithmus 

EXP (X) 

Exponentialfunktion 

SQRT (X) 

Quadratwurzel 
einer Zahl 


Dabei ist zu beachten, daß, falls ganz¬ 
zahlige Argumente verwendet werden, 
auch reale Zahlen entstehen können. 
Beispiel: 

1/3 hat den Wert 0.333333 

20 MOD 3 besitzt den Wert 2 
Dabei können anstelle der Zahlen 
auch Variablen vom Typ INTEGER oder 
REAL stehen, die den entsprechenden 
Wert haben. 

Das Ergebnis ist im ersten Fall vom 
Typ REAL und im zweiten vom Typ IN¬ 
TEGER. Eine Zuweisung eines INTE- 
GER-Wertes an einen REAL-Typ kann 
erfolgen, aber nicht umgekehrt. 

Bisher wurde der Typ BOOLEAN noch 
nicht besprochen. 

Eine Boolesche Variable kann den 
Wert TRUE oder FALSE besitzen. Für 
boolesche Variablen gibt es auch eine 
Reihe von erlaubten Operationen wie: 

AND OR NOT 
Beispiel: 

CONST 
wahr = TRUE; 

VAR 

vielleicht, luege, 
aussage : BOOLEAN; 

Dann ist folgendes möglich: 
luege : = NOT wahr; 
vielleicht : = aussage AND wahr 
AND NOT luege; 

Wobei hier „vielleicht“ den Wert von 
„aussage“ annimmt, da „wahr AND NOT 
luege“ wieder TRUE ist. 


Ferner gibt es noch Operationen - auch 
Vergleiche genannt - die als Argumente 
Zahlen besitzen und einen Booleschen 
Wert als Ergebnis liefern: 

= 0 «—>—<> IN 

Die Argumente können auch Boolesche 
Werte sein: 

1 ( 2 ergibt den Wert TRUE. 

0 = 1 ergibt den Wert FALSE. 

TRUE 0 FALSE ist TRUE 

IN wird bei dem Kapitel über Mengen 
erklärt. 

Es gibt aber auch noch andere Funk¬ 
tionen: 

ODD (X) ergibt TRUE wenn X 

ungerade ist. 

EOLN (X) ergibt TRUE wenn ein 

Zeilenende beim Ein¬ 
lesen erkannt wurde. 
EOF (X) TRUE wenn Dateiende 

vorliegt. 

Für den Typ CHAR gibt es auch Funktio¬ 
nen. 

ORD (c) ergibt die Ordnungs¬ 

zahl des Zeichens. 
Welcher Wert dabei 
entsteht, hängt sehr 
stark vom Rechner ab. 
Bei Mikrorechnern 
wird üblicherweise der 
ASCII-Wert verwendet. 
Das Ergebnis ist ein 
INTEGER-Wert. 

CHR (X) Ist die Umkehrfunktion 

zu ORD. CHR (ORD(c)) 
ergibt c. 

Die Relationen sind anhand der Rela¬ 
tion ihrer Ordnungszahlen erklärt. Es 
gilt also dann: 

’A’ (’B’ falls ORD(’A’) ( 

ORD(’B’) TRUE ist. 

Das Gleiche gilt auch für die anderen 
Relationen. 
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Zwei weitere Funktionen sind interes¬ 
sant: 

PRED (c) ergibt den Vorgänger 

des Zeichens c 
also CHR(ORD(c)-l) 
SUCC (c) entspricht 

CHR(ORD(c)+l) 

1.2.3 Der Programmaufbau 

Bei PASCAL ist ein festes Gerüst für den 
Programmaufbau vorgeschrieben. Jedes 
PASCAL-Programm beginnt mit der 
Überschrift „PROGRAM“. Dann folgt ein 
Deklarationsteil, indem zuerst alle Kon¬ 
stanten definiert werden, dann alle Ty¬ 
pen (siehe Kapitel über Typen), dann al¬ 
le Variable und schließlich Funktionen 
und Prozeduren. Erst danach folgt nach 
„BEGIN“ und „END.“ geklammert, das ei¬ 
gentliche Programm. Die Struktur sieht 
also folgendermaßen aus: 

PROGRAM 

Deklarationen 

BEGIN 

Anweisungen 

END. 

PASCAL benötigt ferner in der Über¬ 
schrift noch einen Programmnamen und 


die Angabe von verwendeten Ein- und 
Ausgabegeräten. 

Dazu ein Beispiel. In Abb. 1 . 2 . 3-1 ist ein 
kurzes Programm dargestellt. Der Name 
des Programms lautet „beispiel“. Die An¬ 
gaben von „INPUT“ und „OUTPUT“ be¬ 
deuten, daß hier eine Eingabe und eine 
Ausgabe von Daten, z. B. auf einer Kon¬ 
sole erfolgen soll. Die Überschrift wird 
durch ein Semikolon vom Rest getrennt. 
Dann folgt die Definition einer Variablen 
„a“. Da hier keine Konstanten gebraucht 
werden, wird der entsprechende Dekla¬ 
rationsteil mit „CONST“ weggelassen. 
Durch „a : REAL“ wird a als Variable für 
reelle Zahlen definiert. 

Das Programm startet dann mit der 
Anweisung ,,READ(a)“ die besagt, daß 
der Wert der Variablen a eingelesen 
werden soll. Anschließend wird mit dem 
Befehl „WRITELN(...)“ die Ausgabe ei¬ 
nes Textes und einer Berechnung ver¬ 
anlaßt. 

Nach Starten des übersetzten Pro¬ 
gramms, wartet dieses zunächst auf die 
Eingabe einer REAL-Größe. Hier wird 
die Zahl 12 eingegeben. Damit der Rech¬ 
ner weiß, wann die Eingabe der Zahl ab¬ 
geschlossen ist, muß ein beliebiges an- 


PROGRAM beIsplel(INPUT,OUTPUT); 

VAR 

a s real; 

BEGIN 

R Eü p (* 2 *) ^ 

WRITELNC' 137. MWST von ',a,' OM sind: » , a * 9.13) 
END. 


12 

137. MWST von 1 .20009el DM sind: 1 .56090e0 

Abb. 1.2.3-1 Mehrwertsteuer Berechnung 


14 


1.2 PASCAL-Grundbefehle 


deres Zeichen außer Punkt, Zahl oder 
Vorzeichen und des Buchstabens JE“ 
eingegeben werden. Üblicherweise 
wird ein CR [carriage return oder Wa¬ 
genrücklauf) oder ein Leerzeichen ein¬ 
gegeben. 

Die Ausgabe von a erfolgt in REAL, 
ebenfalls das Ergebnis der Berechnung 
a 0.13. Soll eine andere Darstellung als 
die mathematische erreicht werden, so 
muß ein entsprechendes Programmteil 
dafür geschrieben werden. 

Mit READ können die Datentypen IN¬ 
TEGER, REAL und CHAR eingelesen 
und mit WRITELN ausgegeben werden. 
Dabei gibt es noch die Form READLN, 
wobei, falls die Eingabe aller Variablen 
erledigt ist, bis zum Zeilenende (CR) alle 
Zeichen ignoriert werden. Bei WRITE 
wird im Gegensatz zu WRITELN nach 
der Ausgabe der Werte kein CR LF (Wa¬ 
genrücklauf und Zeilenvorschub) aus¬ 
gegeben. 

Die Parameter werden durch Komma- 
tas getrennt (siehe auch Syntaxdiagram¬ 
me im Anhang). 


1.2.4 Die IF-Anweisung 

Nach den bisherigen Kenntnissen ist es 
nun möglich, einfache lineare Program¬ 
me zu entwerfen. Die einzelnen Anwei¬ 
sungen werden hintereinander ge¬ 
schrieben und nur durch Semikolons 
getrennt. Beispiel: 

PROGRAM linear; 

BEGIN 

anweisungl; 

anweisung2; 

anweisung3 

END. 

Nun, damit allein kann nicht vernünftig 
programmiert werden. Daher gibt es in 
PASCAL, wie auch in anderen Program¬ 
miersprachen Anweisungen, die den 


Ablauf eines Programmes in Abhängig¬ 
keit von Bedingungen steuern können. 

Mit der IF-Anweisung kann eine sol¬ 
che Fallunterscheidung durchgeführt 
werden. 

Das Format für die IF-Anweisung 
sieht dann so aus: 

IF bedingung THEN anweisung 
oder: 

IF bedingung THEN anweisungl 

ELSE anweisung2 

Es gibt also zwei verschiedene Formen. 
Bei der ersten wird, falls die Bedingung 
den Wert TRUE hat, die nach THEN ste¬ 
hende Anweisung ausgeführt und falls 
die Bedingung den Wert FALSE hat, 
wird sie nicht ausgeführt. In beiden Fäl¬ 
len wird eine ggf. danach stehende An¬ 
weisung ausgeführt. 

Bei der zweiten Form wird, falls die 
Bedingung den Wert TRUE hat, „anwei¬ 
sungl“ ausgeführt und falls der Wert 
FALSE ist wird „anweisung2“ ausge¬ 
führt. 

Abb. 1.2.4-1 zeigt ein Beispiel für die 
erste Form. Es soll die Quadratwurzel ei¬ 
ner Zahl berechnet werden. Dabei er¬ 
gibt sich ein imaginärer Wert, wenn das 
Argument unter der Wurzel negativ ist. 
Wird die Operation SQRT(x) für ein ne¬ 
gatives X ausgeführt, so gibt es eine Feh¬ 
lermeldung bei der Ausführung. Um die 
Berechnung dennoch ausführen zu 
können, muß eine Fallunterscheidung 
getroffen werden. Im ersten Fall ist das 
Argument größer oder gleich Null, im 
zweiten ist es kleiner als Null. 

Im Programmbeispiel nach der ersten 
Variante der IF-Anweisung, wird nach 
der Eingabeanweisung der Variablen 
„zahl“ abgefragt, ob der Wert von „zahl“ 
kleiner als Null ist. Wenn ja, so wird die 
Ausgabe des Textes „I ■“ veranlaßt um 
anzuzeigen, daß das Ergebnis Komplex 
ist. In jedem Fall wird der Wert der Qua- 
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PROGRRM wurzel(INPUT,OUTPUT); 

VAR 

zahl:INTEGER; 

BEGIN 

URITELH; 

W RITE t J Eingabe einer Zahl:’); 

READ(zahl); 

URITE(’Wurzel aus ’»zahl,’ ist » ); 
IF zahl<0 THEH URITE(’ I *’ ) 5 
URITELN(SQRT(ABS(zahl))) 

END. 


Sore im PASCAL/M ver 93 .95/93 .05 

Ei i ngabe e iner Zah 1:13 Abb x 2 a-\ 

Wurzel HUS 13 ist 3.6955oe0 Wurzel einer Zahl 

mit IF THEN 

Sore im PASCAL/M ver 93.93/93 .05 

Ei i ngabe e i ner Zah l: -4 

Wurzel aus -4 ist I * 2 .90909e0 


PROGRAM wurzel(INPUT,OUTPUT)5 
VAR 


zahl : INTEGER; 

BEGIN 

URITELN; 

URITE(’Eingabe einer Zahl:’); 

READ(zahl); 

URITE (’ Uurzel aus ’,zahl,’ ist ’)$ 

IF zahl < 0 THEN URI TE(’ I *’,SQRT(-zahl)) 
ELSE URITE(SQRT(zahl)) 

END. 


Sore im PASCAL/M ver 93 .95/93 .0 5 
Ei i ngabe e i ner Zah l s 3 4 
Wurzel aus 34 ist 5.33993e0 

Boro im PASCAL/M ver 93.93/93.05 
Ei ingabe e i vier - Zah l: —12 
Wurzel aus “12 ist I * 3.464 1.9e0 


Abb. 1.2.4-2 
Wurzel einer Zahl 
mit IF THEN ELSE 
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dratwurzel durch die Anweisung 
WRITELN[SQRT(ABS[zahl)) ausgege¬ 
ben. Durch die Operation ABS(zahl) 
wird erreicht, daß das Argument der 
Quadratwurzel in jedem Fall positiv ist. 

Abb. 1.2.4-2 zeigt eine Lösung, mit der 
zweiten Variante, eine IF-Anweisung 
aufzubauen. Ist der Wert von „zahl“ klei¬ 
ner Null, so wird direkt mit SQRT(-zahl) 
der richtige Wert ausgegeben, ist der 
Wert von „zahl“ nicht negativ, so wird im 
ELSE-Teil mit SQRT(zahl) der Wert be¬ 
rechnet. 

Nun taucht die Frage auf, wie können 
mehrere Anweisungen im THEN oder 
ELSE Teil angegeben werden? 

Dies ist ganz einfach, wenn man sich 
einmal die Definition einer Anweisung 
ansieht. 

Anweisung : diverse Anweisungen 
: BEGIN Anweisungen 

durch Semiko¬ 
lon getrennt 

END 

Eine Anweisung kann einmal sein: „di¬ 
verse Anweisungen“, wie z. B. die IF-An¬ 
weisung, oder eine Zuweisung, oder 
READ, WRITE Befehle usw. 

Oder eine Anweisung kann aus An¬ 
weisungen bestehen, die durch Semiko¬ 
lons getrennt sind und als Ganzes mit 
BEGIN und END geklammert sind. 

Beispiel: 

IF bedingung 
THEN 

BEGIN 

anweisungl; 

anweisung2; 

END 

ELSE 

anweisung3 

In den Anweisungen „anweisungl... an- 
weisung3“ dürfen natürlich wieder IF- 
Anweisungen verwendet werden. Die 
sind durch den rekursiven Charakter 


der Programmiersprache möglich und 
auch im Syntaxdiagramm [Anhang) er¬ 
sichtlich. 

Als Bedingung darf ein beliebiger 
Ausdruck mit einem Booleschen Wert 
stehen, also auch Boolesche Variablen 
im einfachsten Fall. 


1.2.5 Die REPEAT-Anweisung 

Mit der IF-Anweisung lassen sich nun 
schon Entscheidungen treffen. Dies ge¬ 
nügt aber nicht für alle Programmaufga¬ 
ben. Soll ein Vorgang mehrfach wieder¬ 
holt werden, so wird eine Schleife benö¬ 
tigt. In BASIC läßt sich eine solche 
Schleife mit einem Sprungbefehl ver¬ 
wirklichen, dies ist aber nicht immer 
sehr durchsichtig; in PASCAL gibt es 
bessere Möglichkeiten. 

Die REPEAT Anweisung ist eine da¬ 
von. Das Format lautet wie folgt: 
REPEAT 

anweisungen 
UNTIL bedingung 

Die zwischen REPEAT und UNTIL ste- 
hende(n) Anweisungen) wird [werden] 
so lange ausgeführt, bis der Ausdruck 
„bedingung“ den Wert TRUE annimmt, 
also die Bedingung erfüllt ist. 

Beispiel und Vergleich zu BASIC: 
REPEAT 
READ(a); 
verarbeite a 
UNTIL fertig 
In BASIC: 

100 INPUT A 
110 verarbeite a 
120 IF NOT[fertig) THEN 100 
„Fertig“ kann dabei eine Boolesche Va¬ 
riable sein, oder ein Ausdruck, der einen 
Booleschen Wert besitzt, z. B. „a=0“. 

Abb. 1.2.5-1 zeigt ein einfaches Pro¬ 
grammbeispiel dazu. Es soll die Mehr¬ 
wertsteuer berechnet werden. Diesmal 
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PROGRAM belsplei(INPUT,OUTPUT); 

VAR 

wert s REAL; 

BEGIN 

WRITELN; 

WRITELN<' Berechnen der Mehrwertsteuer'); 

REPEAT 

WR1TEC' Eingabe DM Betrag ' ); 

READ(wert); 

WRITELN ( 9 137. MWST von ',wert, # sind ' ,uert*0.13) 
UNTIL wert * 0 
END. 


Berechnen der Mehrwertsteuer 


Eingabe OM Betrag 12 

13'/. MWST von 1 .20000el 

sind 

1 .56000e0 


Eingabe OM Betrag 40.01 
137. MWST von 4.00100el 

sind 

5.20130e0 

Abb. 1.2.5-1 

Eingabe OM Betrag 10.45 
137. MWST von 1 .04500el 

sind 

1.35850e0 

Mehrwertsteuer mit 
REPEAT-Anweisung 

Eingabe OM Betrag 0 

137. MWST von 0.00000e0 

sind 

0.00000e0 



soll aber nicht für jede neue Berech¬ 
nung das Programm neu aufgerufen 
werden, sondern die Berechnung soll 
solange ausgeführt werden, bis durch 
ein Endezeichen dem Programm gezeigt 
wird, daß die Berechnung abgeschlos¬ 
sen ist. Als Endekriterium wird hier ein¬ 
fach der DM Betrag 0 genommen, da 
er in dem normalen Berechnungsvor¬ 
gang nicht vorkommt. Das Programm be¬ 
ginnt nach der Definition der Variablen 
„wert“ mit der Ausgabe der Überschrift. 
Dann wird in der Schleife die Eingabe 
des DM-Betrags verlangt und nach dem 
Einlesen des Wertes wird die berechne¬ 
te Mehrwertsteuer ausgegeben. Hat die 
Variable „wert“ den Wert 0 angenom¬ 


men, so wird die Schleife beendet. Ein 
kleiner Nachteil bei diesem Verfahren 
ist, daß auch mit dem Wert 0 die Berech¬ 
nung durchgeführt wird. Dieser Schön¬ 
heitsfehler läßt sich jedoch z. B. durch 
eine IF-Anweisung vermeiden, oder 
durch Programmkonstruktionen, die im 
weiteren noch erklärt werden. 

Abb. 1.2.5-2 zeigt ein weiteres Beispiel 
zur REPEAT-Anweisung. Es soll eine 
Rechnung erstellt werden. Dazu wird je¬ 
weils die Anzahl der Ware eingegeben 
und der Wert der Ware. Am Schluß er¬ 
warten wir die Rechnungssumme. 

Für diese Aufgabe benötigt man meh¬ 
rere Variablen. In „wert” wird der jewei¬ 
lige Warenwert eingegeben, „summe” 
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PROGRAM rechnuug(INPUT,OUTPUT); 

VAR 

wert,summe : REAL; 
anzahl s INTEGER; 

BEGIN 

WRITELN; 

WRITELNC' Rechnung ' >5 
summe : = 0; 

READCanzahl,uert); 

REPEAT 

WRITELN (anzah l,' * ',uert,' = ' ,anzahl*uert) ; 

summe : = summe + anzahl * uert? 

READ(anzahl, wert) 

UNTIL' anzahl = 0; 

WRITELN; 

WRITELNC # -' ) ; 

WRITELN(' Gesamt: ' ,summe ) 

END. 


Sore Im PASCAL/M ver 03.05/03 ,05 
Rechnung 


3,5.10 


3 * 5.10000e0 

7,1 

= 1.53000el 

7 * 1.00000G0 

10,22 

= 7.0000060 

10 * 2„20000el 

0 ,0 

= 2.20000e2 


Abb. 1.2.5-2 Rechnungsstellung 
mit REPEAT 


Gesamt: 2.42300e2 


speichert die Endsumme der Rechnung 
und in „anzahl” wird die Anzahl der Wa¬ 
re eingegeben. Nach Ausgabe der Über¬ 
schrift, muß als erstes die Variable „sum¬ 
me“ mit 0 belegt werden, damit sie einen 
definierten Start wert hat. Es wird dann 
mit READfanzahl,summe) die Anzahl 
der Waren und deren Preis eingelesen. 
Dies geschieht vor dem Start der Schlei¬ 
fe um hier den Fehler des vorherigen 
Programms zu vermeiden, um am 
Schluß einen nicht bedeutenden Wert 
zu verarbeiten. In der Schleife wird 
dann als erstes die Berechnung „anzahl • 
wert“ durchgeführt und eine Zeile der 


Rechnung ausgegeben. Der Wert von 
„summe“ wird um den Betrag „anzahl • 
wert“ erhöht. Dann wird wieder „an¬ 
zahl“ und „summe“ eingelesen. Ist als 
Anzahl der Wert 0 eingegeben worden, 
so wird die Schleife abgebrochen und 
die Gesamtsumme, die in der Variablen 
„summe“ steht, ausgegeben. 

Abb. 1.2.5-3 zeigt eine andere Verwen¬ 
dungsmöglichkeit der REPEAT-Anwei- 
sung. Es soll ein Plot einer Funktion, ei¬ 
ner Sinuskurve, ausgegeben werden. 
Dazu wird hier eine weitere Fähigkeit 
von WRITE und WRITELN verwendet, 
es ist dabei möglich, die Anzahl der ver- 
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PROGRAM sLnus(OUTPUT); 
CONST 

pi = 3.14159; 


VAR 

lauf : REAL; 

Position : INTEGER; 

BEGIN 

WRITELN; 
lauf := 0; 

REPEAT 

Position := 40 + TRUNCCSINClauf)*40); 
WRITELN(1 spositIon); 
lauf := lauf + pi/12; 

UNTIL lauf > 2*pi 
END. 


1 

1 

1 

1 

1 

1 

1 


1 


1 


1 


1 


1 


1 


Abb. 1.2.5-3 Plotten von 
Funktionen mit REPEAT 


1 


1 


l 


1 


1 


1 


1 

1 

1 


wendeten Stellen zur Darstellung einer 
Zahl anzugeben. WRITE(wert:stellen- 
zahl] gibt die Variable „wert“ mit „stel¬ 
lenzahl“ Stellen aus. Nun kann „stellen¬ 
zahl“ auch eine Variable sein und damit 
ist es möglich, die Anweisung zum Plot¬ 
ten zu mißbrauchen. In dem Programm 
wird als erstes pi als Konstante definiert 
und mit dem entsprechenden Wert be¬ 
legt. „lauf“ ist eine REAL-Größe, die als 
Schleifenzähler verwendet wird. Es 
wird dann als erstes „lauf“ mit 0 belegt 
und der Anfang festgelegt. Die Variable 


„Position“ soll die Position des Plotpunk¬ 
tes erhaltenund wird dazu mit dem Wert 
des Ausdrucks: 40+TRUNC(SIN(lauf) • 
40) belegt. SIN besitzt einen Wertebe¬ 
reich von —1 bis +1. Durch die Multipli¬ 
kation mit dem Wert 40 wird der Bereich 
auf —40 bis +40 ausgedehnt. Mit 
TRUNC wird die entstandene Zahl, die 
immer noch eine REAL-Größe ist, in ei¬ 
nen INTEGER-Wert verwandelt, da¬ 
durch, daß die Nachkommastellen abge¬ 
schnitten werden. Nun wird noch 40 
aufaddiert, und es ergibt sich ein Be- 
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reich von 0 bis 80. Mit dem Ausgabebe¬ 
fehl wird die Position als Stellenzahl in¬ 
terpretiert und die vorangestellte Zahl 
mit der entsprechenden Gesamtstellen¬ 
zahl ausgeben, wobei die nicht verwen¬ 
deten Positionselemente als Leerzei¬ 
chen ausgegeben werden. 

Auch dieses Programm enthält einen 
Schönheitsfehler. Nimmt die Position 
den Wert 0 an, so müßte die Zahl 1 mit 0 
Stellen dargestellt werden. Da dies nicht 
möglich ist, ergibt sich hier ein Fehler 
bei der Darstellung. Der Fehler läßt sich 
leicht durch eine Addition von 1 behe¬ 
ben. Die Ausgabe müßte dann wie folgt 
lauten: WRITELN(l:position+l); 

oder es wird bei der Berechnung von 
„Position“ nicht 40 sondern 41 addiert. 


Ferner ist natürlich bei der Ausgabe 
darauf zu achten, daß das ausgegebene 
Bild auf die Bildfläche in horizontaler 
Richtung paßt. Eine Anpassung kann 
aber leicht durch ändern der Werte in 
der Berechnungsformel von „position“ 
durchgeführt werden. 


1.2.6 Die WHILE-Anweisung 

In PASCAL gibt es auch noch eine wei¬ 
tere ähnliche Schleifenkonstruktion wie 
die REPEAT-AnWeisung. Bei der RE¬ 
PE AT-An Weisung erfolgt die Abfrage ei¬ 
ner Bedingung am Schluß. Bei WHILE 
ist dies anders. Das Format sieht wie 
folgt aus: 


PRÜGRfiM bei spiel(INPUT,OUTPUT)5 
VflR 

z a hljcountsINTEGER; 

BEGIN 

uriteln; 

NR ITE( ? Eingabe von Teilers*)? 

REflü(zahl) ; 
c o u n t s = 15 

NRITE( ? Teiler von 5 ,zahl, 5 sind 5 ); 

NHILE count< = zahl DO 
BEGIN 

IF zahl MOD c o un t = 0 THEN URITEtcount , 9 ') 
c o u n t s = c o u n t + 1 

END 

END. 


S or o l m PAS CAL. / M ve r 9 3.9 3 / 9 3 .05 
E: Lngabe von Te i ler • 234 

Teller von 234 '.sind 1 2 3 6 9 13 16 26 3 9 73 11/ 2 34 

Sore Im PASCAL/M ver 93 .93/93.05 
E: 1 ngabe von Te I ler : 512 

Teller von 512 sind 1 2 4 8 16 32 64 123 256 312 

Abb. 1.2.6-1 Teilerberechnung mit WHILE 
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PROGRAM wandte(INPUT,OUTPUT)i 
VAR 

zahl,temp ! INTEGER 5 


BEGIN 

WRITELN; 

WRITELN(' Dezimal nach Blnaer '); 
REPEAT 

READ(zahl) ; 
temp := zahl; 

WRITELN(' von LSB nach MSB '); 
WHILE temp > 0 DO 
BEGIN 

IF TRUNC(temp/2)*2 = temp 
THEN 

WRITELN('0') 

ELSE 

WRITELN('1'); 
temp := TRUNC(temp / 2) 
END; 

WRITELN; 

UNTIL zahl = 0 
END. 


Abb. 1.2.6-2 
Binärausgabe 
mit WHILE 


Dezimal nach Blnaer 
12 

von LSB nach MSB 


0 

0 

1 

1 


20000 

von LSB nach MSB 


1 


1 

1 

0 

0 

1 


255 

von LSB nach MSB 

1 

1 

1 

1 

1 

1 

1 

1 

0 

von LSB nach MSB 
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WHILE bedingung DO anweisung 
Solange der Ausdruck „bedingung“ den 
Wert TRUE besitzt, wird die nach DO 
folgende Anweisung wiederholt ausge¬ 
führt. Sollen mehrere Anweisungen 
ausgeführt werden, so werden diese mit 
BEGIN und END geklammert, gemäß 
der Definition von „anweisung“ (Syn¬ 
taxdiagramm). Da hier zuerst die Bedin¬ 
gung abgefragt und dann die Anwei¬ 
sung ausgeführt wird, ergeben sich ganz 
andere Konstruktionsmöglichkeiten als 
bei der REPEAT-AnWeisung. Ist die Be¬ 
dingung zum Beispiel von Anfang an 
FALSE, so wird „anweisung“ überhaupt 
nicht ausgeführt. Bei der REPEAT-An¬ 
weisung jedoch muß die Anweisung in 
der Schleife mindestens einmal durch¬ 
laufen werden. 

Abb. 1.2.6-1 zeigt ein Beispiel mit der 
WHILE-Anweisung. Aufgabe ist es, alle 
Teiler einer Zahl auszugeben. Die Varia¬ 
ble „zahl“ beinhaltet die Zahl, von der 
die Teiler berechnet werden sollen, 
„count“ ist ein Zähler, der von 1 bis 
„zahl“ läuft. Dazu wird „zahl“ zunächst 
mit dem Wert 1 belegt. Dann erfolgt der 
Eintritt in die Schleife. Die Bedingung 
„count(=zahl“ ist beim ersten Mal immer 
dann erfüllt, wenn eine zahl größer 0 
eingegeben wurde. In der Schleife wird 
geprüft, ob „zahl MOD count = 0“ ist. 
Wenn ja, so ist „count“ ein Teiler von 
„zahl“, „count“ wird dann um eins er¬ 
höht 

Abb. 1.2.6-2 zeigt nun ein kombinier¬ 
tes Beispiel. Eine eingegebene Zahl soll 
in das duale Zahlensystem umgewan¬ 
delt werden. Wird die Zahl 0 eingege¬ 
ben, so ist dies das Ende der Eingabe 
und die Ausführung soll abgebrochen 
werden. Nach Ausgabe der Überschrift 
begint die eigentliche Hauptschleife, die 
mit „REPEAT, UNTIL zahl = 0“ ge¬ 
schachtelt ist. In dieser Schleife wird der 


Wert von „zahl“ eingelesen. Dann wird 
eine Unterüberschrift ausgegeben und 
es startet eine innere Schleife, die mit 
WHILE ausgeführt ist. In dieser Schleife 
wird solange geblieben, bis die Variable 
„temp“ einen Wert kleiner oder gleich 0 
hat. „temp“ wird dabei mit dem Wert von 
„zahl“ vorbelegt. Nun folgt in der Schlei¬ 
fe, die durch BEGIN und END geklam¬ 
mert ist, die Ausgabe der einzelnen Bi¬ 
närstellen. Dazu wird ein einfacher Al¬ 
gorithmus verwendet. Ist „temp“ durch 2 
teilbar, so wird die Zahl „0“ ausgegeben, 
sonst die Zahl 1. Dann wird „temp“ 
durch den ganzzahligen Teil der Divi¬ 
sion von „temp“ durch zwei ersetzt. Ist 
„temp“ gleich 0, so kann der Algorith¬ 
mus abgebrochen werden. Die Stellen 
der Zahl werden beginnend mit der nie¬ 
derwertigsten Stelle ausgegeben. 

Abb. 1.2.6-3 zeigt die Lösung einer 
ganz anderen Aufgabe. Sie stammt aus 
dem Bereich der Stringverarbeitung. 
(Zeichenketten-Verarbeitung). 

Abb. 1.2.6-4 zeigt das Syntaxdiagramm 
der Aufgabenstellung. Es soll eine Zahl 
eingelesen werden, bei der beliebig vie¬ 
le Plus-Zeichen vorne stehen dürfen, 
und die von beliebig vielen Pluszeichen 
gefolgt werden darf. Tritt ein anderes 
Zeichen auf, so soll der Vorgang beendet 
werden und eine Ausgabe erfolgen. 

Die Variable „ch“ wird vom Typ CHAR 
erklärt und kann damit ein Zeichen auf¬ 
nehmen. Es ward nach Programmstart 
ein Zeichen von der Konsole gelesen. 
Mit der WHILE-Schleife wird nun solan¬ 
ge gelesen, wie das eingelesene Zeichen 
ein Plus-Zeichen ist. Wenn schon das 
erste Zeichen kein Plus-Zeichen war, 
wird die Anweisung wegen der WHILE- 
Konstruktion übersprungen und für ch 
steht eine Ziffer. Nun muß aus einer Fol¬ 
ge von Ziffern eine Zahl gewonnen wer¬ 
den. Dazu wird die INTEGER-Variable 
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PROGRAM leszeloh(.T.NPUT,OUTPUT) ; 

VAR 

chSCHAR 5 
zahLs INTEGER 5 
REG IN 

WR1TELN5 
READ(oh); 

WH1LE ch«'+ # DO READ(ch) 5 
zahls-fl; 

REPEAT 

za h l s -- < 0R0 (o h) -0R0 < ' 9 1 )) +18 *za hl; 

READ(oh) 

UNTIL oI v- 1 +' ; 

READCch); 

WHILE ch«'+' 00 READ(oh); 

WR1TELNC'Zahl ist',zahl) 

END. 

Abb. 1.2.6-3 
Zeichenerkennung 
mit WHILE 

Borolm PASCAL/M ver 93.05/03,05 
+++++34 5 + ++++ Zahl l s 13 4 5 


Boro Im PASCAL/M vt>r 93.93/93.05 
-i*++2 3+++++++++ Z a 1 1 1 15» 12 3 


„zahl“ zunächst mit dem Wert 0 belegt. 
Dann beginnt die innere Schleife. Es 
wird der Wert der Zahl berechnet. Dazu 
wird die Funktion ORD verwendet. Um 
rechnerunabhängig zu bleiben, wird ei¬ 
ne Differenz von zwei mit ORD gebilde¬ 
ten Werten erzeugt. Der alte Wert der 
Zahl wird mit 10 multipliziert und dann 
aufaddiert, so daß eine Eingabe begin¬ 
nend mit der höherwertigen Stelle mög¬ 
lich ist. Nach dieser Schleife erfolgt mit 


Leszeich 

Ziffer 

_ 







Abb. 1.2.6-4 

Syntaxdiagramm für Eingabesprache 


einer weiteren WHILE-Schleife das 
Ignorieren von nachfolgenden Plus-Zei¬ 
chen. Eine Fehlerbehandlung wurde 
hier noch nicht vorgesehen: also wenn 
zum Beispiel in der REPEAT-Schleife 
ein anderes Zeichen außer „+“ oder ei¬ 
ner Ziffer eingegeben wird. Elegante Lö¬ 
sungen dazu lernen wir noch später 
kennen. 


1.2.7 Die CASE-Anweisung 
In Abb. 1.2.7-1 ist ein Programm gezeigt, 
das die Aufgabe hat, eine eingegebene 
Ziffer im Klartext auszugeben; bei¬ 
spielsweise die Ziffer 0 wird als „Null“ 
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PROGRAM numausdNPUT, OUTPUT); 

VAR 

zahl : INTEGER; 

BEGIN 

REPEAT 

WRITELN; 

WRITEl'Eingabe einer Zahl:'); 

READ(zahl); 

IF zahl = 0 THEN WRITELN('Nu1l'); 
IF zahl = 1 THEN WRITELN<'EIns'); 


IF zahl = 2 
IF zahl = 3 
IF zahl = 4 
IF zahl = 5 
IF zahl « 6 
IF zahl = 7 
IF zahl = 8 
IF zahl = 9 
WRITELN 

UNTIL zahl = 10 
END. 


Eingabe einer Zahl:0 
Null 


Eingabe einer Zahl:l 
Eins 


Eingabe einer Zahl:9 
neun 


Eingabe einer Zahl:10 

ausgegeben. Wird die Zahl 10 eingege¬ 
ben, so wird das Programm beendet. 
Nach der Eingabe der Variablen „zahl“ 
wird hier einfach durch mehrere IF-An- 


THEN WRITELN('Zuei'); 
THEN WRITELN('Drei'); 
THEN WRITELN('Vier'); 
THEN WRITELN('Fuenf'); 
THEN WRITELN('Sechs'); 
THEN WRITELN('Sieben'); 
THEN WRITELNl'acht')? 
THEN WRITELNC'neun')5 


Abb. 1.2.7-1 

CASE durch IF-Anweisungen 


Weisungen die jeweilige Zahl abgefragt 
und eine entsprechende Ausgabe aus¬ 
geführt. Dies ist sehr umständlich. Es 
gibt in PASCAL eine elegantere Lösung 
mit der CASE-Anweisung. 

Das Format der CASE-Anweisung 
lautet wie folgt: 

CASE ausdruck OF 

case marke : anweisung 1 ; 

case marke : anweisung n 
END 

Der hinter dem Wort CASE angegebene 
Ausdruck bestimmt, welches der nach¬ 
folgenden Anweisungen ausgeführt 
wird. Es wird dann die Ausführung auf 
die entsprechende „case marke“ über- 
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PROGRAM numaus(INPUT,OUTPUT); 

VAR 

zahl : INTEGER; 

BEGIN 

REPEAT 

WRITELN; 

WRITE('Eingabe einer Zahl!')5 
READ(zahl); 

IF zahl < 10 
THEN 

OASE zahl OF 

0: WRITELN( 'Null' ) ; 
l: WRITELN('Eins'); 

2: WRITELN('Zwei'); 

3: WRITELNC'Drei')5 
4: WRITELNl'Vier'); 

5: WRITELN(' Fuenf')i 
6: WRITELN('Sechs'); 

7: WRITELN('Sieben'); 

8: WRITELNC'Acht'); 

9: WRITELNl'Neun') 

END; 

WRITELN 

UNTIL zahl = 10 
END. 

Abb. 1.2.7-2 

Die Anwendung der CASE-Anweisung 

Eingabe einer Zahl:0 
Null 


E'. Ingabe einer Zahl:5 
Fuenf 


Eingabe einer Zahlü 
Eins 


Eingabe einer Zahl:9 
Neun 


Eingabe einer Zahl:10 
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tragen. Als Ausdruck sind alle skalaren 
oder Bereichstypen zugelassen, wenn 
nur die „case marke“ vom gleichen Typ 
ist. Wird im Ausdruck ein Wert errech¬ 
net, der keine entsprechende Marke be¬ 
sitzt, so weiß man nicht, was dann im 
Rechner passiert. Bei der CASE-Anwei- 
sung können auch mehrere „case-mar- 
ken“ für eine Anweisung angegeben 
werden, sie werden dazu durch Komma- 
tas getrennt: 

case markel, 

case marke2 : anweisung 

Abb. 1.2.7-2 zeigt die Lösung der vorheri¬ 
gen Aufgabe mit der CASE-Anweisung. 
Da bei Eingabe der Zahl 10 das Pro¬ 
gramm beendet werden soll, und die 
Zahl 10 nicht als „case-marke“ vor¬ 
kommt, muß der Wert durch eine IF-An- 
weisung abgefangen werden. 

Mit den bisherigen Kenntnissen ist es 
nun möglich, auch eine komplizierte 
Aufgabe zu lösen. Es soll eine Art EDI¬ 
TOR programmiert werden, mit dem 
einfach PASCAL-Programme eingege¬ 
ben werden können. Sobald der EDI¬ 
TOR ein PASCAL-Wort an seinen An¬ 
fangsbuchstaben erkannt hat, soll er 
den Rest des Wortes ausgeben. Um zu 
unterscheiden, ob es ein PASCAL-Wort 
sein kann, oder eine Variable, muß hier 
die Abmachung eingehalten werden, al¬ 
le PASCAL-Schlüsselwörter mit Groß¬ 
buchstaben zu schreiben. Eine Zeichen¬ 
folge die von umklammert ist, soll im¬ 
mer direkt ausgegeben werden, da dort 
Groß- und Kleinbuchstaben akzeptiert 
werden müssen, um z. B. bei WRITELN 
beliebige Textausgabe zu erlauben. Das 
Programm wird hier nur auf der Konsole 
ausgegeben, da uns bis jetzt noch die 
Datenverwaltung fehlt, doch ist dies nur 
eine leichte Änderung. Das Programm 
verwendet nur eine Variable vom Typ 
CHAR, mit dem Namen „ch“. Dann be¬ 
ginnt die Hauptschleife, die mit RE- 


PEAT , UNTIL aufgebaut ist und endet, 
wenn in der Variablen „ch“ das Zeichen 
„.“ steht. Es wird ein Zeichen eingele¬ 
sen. Handelte es sich um das Zeichen 
so wird solange eingelesen, bis wie¬ 
der ein Anführungszeichen erscheint. 
Dann kommt eine Abfrage, ob ein Zei¬ 
chen ein Großbuchstabe war. Falls ja, so 
wird eine CASE-Anweisung ausgeführt. 
Es wird nun auf die Schlüsselwörter hin 
abgefragt. Dabei werden nicht alle 
Schlüsselwörter von PASCAL geprüft, 
um das Programm nicht unnötig kompli¬ 
ziert zu machen. Folgende Wörter wer¬ 
den erkannt: 

VAR INTEGER INPUT 

CHAR OUTPUT BEGIN 

END WHILE WRITE 

WRITELN DO REPEAT 

READ READLN LN( 

UNTIL 

Abb. 1 . 2 . 7-3 zeigt die Programmausfüh¬ 
rung. Dabei ist LN( die Endung von 
„WRITELN(“ und „READLN(“. Die CA¬ 
SE-Anweisung prüft nun die Anfangs¬ 
buchstaben. Bei manchen Schlüssel¬ 
wörtern reicht dies aus, aber natürlich 
nicht bei allen. Dazu wird innerhalb ei¬ 
ner Anweisung hinter der „case marke“ 
eine weitere CASE-Anweisung ausge¬ 
führt. Bei manchen Schlüsselwörtern 
wird auch gleich ein Semikolon ausge¬ 
geben oder ein Zeilenvorschub. Auf die¬ 
sem Prinzip könnte ein recht komfor¬ 
tabler EDITOR geschrieben werden, der 
Tippfehler vermeidet und zu einer 
schnellen Eingabe des PASCAL-Pro- 
gramms verhilft. 


1.2.8 Die FOR-Anweisung 
In vielen Fällen wird bei Programmen in 
einer Zählervariablen ein Wert hochge¬ 
zählt und eine Anweisungssequenz 
wiederholt. Diesen Programmiervor¬ 
gang unterstützt PASCAL mit der FOR- 
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PROGRAM prgeittCINPUT,OUTPUT); 
VAR 

oh SCHAR 5 
BEGIN 

WRITELN; 

WRITEC'PROGRAM 1 ) ; 
REPEAT 

READCch); 

IE ch~'''' THEN 
REPEAT 


READCch) 

UNTIL ch= #1 ' ' ; 

IF CORDCchX-ORDC' Z' ) ) and CORDCch)>=ORDC' A' ) ) 
CABE ch OF 

' V' : WRITELN ('AFP ) ; 

' I' s BEGIN 

READ(oh); C* N *) 

READCch); 

CABE oh OF 

1 P' S WRITE C'UV ) ; 

'V : WRITELN<'EGFR1') 

END 
END 1 

' C 1 : WRITELN('HAR;'); 

' 0's WRITEC'UTPUT'); 

'B': WRITELNC'EGIN')5 
# E' : WRITEC' ND-* ) ; 

' W' : BEGIN 

READCch)5 
CASE ch OF 

'H': WRITEC'ILE ' ) ; 

'R' : WRITE C * 1TE' ) 

END 

END; 

' D' s WRITELNC '0'); 

1 R # : BEGIN 

READCch); 

READCch)» C* Erster RE *) 

CASE ch OF 

1 P's WRITELNC'EAT' ); 

1 A' : WRITE C 1 0 ’ ) 

END 
END 5 

'L' : WRITEC' N C'); 

'U' s WRITE C'NTIL ' ) 

END 

UNTIL oh-- 1 . ' 

END. 

Abb. 1.2.7-3 Programm- 
Eingabe mit CASE 


Sore im PASCAL/M ver 03.05/03.05 
PROGRAM teste INPUT,OUTPUT); 

VAR 


i:INTEGER; 

BEGIN 

REPEAT 

READ(l); 

WRITELNCl, ; I ausyeben') 
UNTIL 1=0 


END. 


THEN 
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Anweisung. Das Format dazu ist folgen¬ 
des: 

FOR variable := ausdruckl 
TO ausdruck2 
DO anweisung 
oder Alternativ: 

FOR variable := ausdruckl 
DOWNTO ausdruck2 
DO anweisung 

Beim ersten Durchlauf wird die Variable 
mit dem Wert von „ausdruckl“ belegt, 
dann wird im ersten Fall bei jedem 
Durchlauf der Wert der Variablen durch 
den Nachfolger (Funktion SUCC( )) er¬ 
setzt, bis ausdruck2 überschritten wird. 
Bei INTEGER-Variablen wird durch 
SUCC(X) einfach der Wert der Varia¬ 
blen um eins erhöht. REAL-Variablen 
sind als Zähler nicht zugelassen, da die 
Funktion SUCC(X] nicht zugelassen ist. 
Im zweiten Fall, bei der Konstruktion mit 


DOWNTO, wird die Funktion PRED(x) 
verwendet und bei einer INTEGER-Va¬ 
riablen der Wert um eins erniedrigt. Der 
Abbruch erfolgt dann bei Unterschrei¬ 
ten des Wertes von ausdruck2. Zum 
besseren Verständnis eine gleichwerti¬ 
ge Konstruktion mit der WHILE-AnWei¬ 
sung: 

Fall 1 FOR mit TO: 
variable := ausdruckl; 

WHILE variable (= ausdruck2 DO 
BEGIN 

anweisung; 

variable := SUCC(variable) 

END 

Fall 2 mit DOWNTO: 
variable := ausdruckl; 

WHILE variable )= ausdruck2 DO 
BEGIN 

anweisung; 

variable := PRED (variable) 

END 


PROGRAM tabeIle(INPUT,OUTPUT)! 

VAR 

lsINTEGER 5 
BEGIN 

WRITELN; 

FOR l:~0 TO 10 DO 

WRITELNC' Wurzel aus ',L,' i*st ' , SORT < i. > ) 

END. 


Bore Lm 

PASCAL/M ver 93.03/0: 

Würze l 

aus 

0 

Ist 

6,00000e0 

Würze l 

aus 

1 

ist 

1. .0990060 

Würze l 

aus 

n 

ist 

1.4142160 

Würze L 

a 1.1 s 

3 

L S L 

1 .73203e0 

Würze l 

aus 

4 

Ist 

2.00000e0 

Würze l 

aus 

3 

l s t 

2.2360760 

Würzet 

aus 

6 

Ist 

2.44?4?e0 

Würze l 

aus 

7 

L s L 

2 .6457360 

Würzel 

aus 

8 

ist 

2.82843e0 

Würzel 

a u s 

9 

L s i; 

3.0900060 

Würze l. 

aus 

10 

i st 

3.16228e 


Abb. 1.2.8-1 Wurzeltabelle 
mit FOR-Anweisung 
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PROGRRM tabelle(INPUT,OUTPUT); 
CONST 

pi=3.14121; 

VAR 

i:INTEGER; 
a:REAL; 

BEGIN 

URITELN; 
a: =0; 

FÜR i:=20 DOUNTO 0 DO 
BEGIN 


END. 

Eiorc Im 

URITELN(i» 5 
a: = a + p i /10 

END 

PASCAL/f-1 ver 03.0 

sint'ist 

5/03.05 

20 

s l n ( 

0.0000060) 

Ist 

0.0000060 

19 

s l n < 

3.14121e-l) 

Ist 

3.08981e-l 

18 

s l n ( 

6.232426-1) 

Ist 

5.877236-1 

17 

s 1 n ( 

9.42363e-l) 

Ist. 

8.08950e-l 

16 

sin ( 

1 .2564860) 

Ist 

9.510096-1 

15 

s 1 n < 

1 .5706160) 

Ist 

1 .0000060 

14 

sln ( 

1 .8347360) 

Ist 

9.511276-1 

13 

s 1 n (. 

2.19885e0) 

Ist 

8.09174e-l 

12 

s l n < 

2.51297e0) 

Ist 

5 .880336-1 

11 

sln C 

2.82709e0) 

Ist 

3.093446-1 

10 

s l n ( 

3.14121e0) 

Ist 

3.825436-4 

9 

s l n C 

3.45533e0) ist -3 

.08617e-l 

8 

s l n (. 

3.76945e@) l 

st -5 

.37414e-l 


7 sin ( 4.08357e0) Ist 
6 sln( 4.39769e0) Ist 
5 sln( 4.71182e0) Ist 
4 sln< 5 .02594e0) Ist 
3 sln( 5.34006e0) Ist 
2 sln< 5.65418e0) Ist 
1 si.n( 5.96830e0) Ist 
0 sln< 6.2824260) Ist 


-8.08725e-l 
-9.50891«-1 
-1 „00000e0 
-9.51245 e-1 
-8.093986-1 
-5.883416-1 
-3.09707e-l 
-7.631786-4 


SIN Ca)) 5 


Abb. 1.2.8-2 
Sinustabelle mit 
FOR-Anweisung 


Abb. 1.2.8-1 zeigt ein Beispiel. Es sollen 
die Wurzeln der zahlen 0 bis 10 ausgege¬ 
ben werden, ln Abb. 1.2.8-2 ein weiteres 
Beispiel: diesmal mit der DOWNTO- 
Version der For-An Weisung. Es wird ei¬ 


ne Sinustabelle mit 20 Einträgen ausge¬ 
geben. Da als Schleifenzähler keine 
REAL-Zahl zugelassen ist, muß hier in 
einer zweiten Variablen das Argument 
für die Sinuswerte festgehalten werden. 
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1.3 PASCAL-Prozeduren und Funktionen 


1.3 PASCAL-Prozeduren 
und Funktionen 

1.3.1 PROCEDURE-Deklaration 

Wird ein Programmabschnitt mehrere 
Male benötigt, so ist es recht praktisch, 


ein Unterprogramm daraus zu machen. 
In PASCAL gibt es aber auch noch ande¬ 
re Gründe, ein Unterprogramm - PRO- 
CEDURE genannt - zu bilden. Prozedu¬ 
ren werden am Anfang eines Blocks de¬ 
finiert. Ein Block sieht wie folgt aus 


PRQGRfiM unt erprg (INF'UT, OUTPUT) 5 


V fl R 

s u ft j a» b 


INTEGER; 


PRQCEDURE addier; 

BEGIN 

s u M : = a + b; 

END; 

BEGIN 

HRITELN; 

REPEflT 

R E fl D (o. j b ) 5 
a d d i e r ; 

HRITELNsufifie = * ,su«) 
IJNTIL sufi = 6 
END. 


S o r c i fi PASCAL /11 v e r 0 3 . ü 5/03.05 
1 

s u fi fi e = 3 
5 

123 

£ U fi ft e = 1 2 8 Abb. 1.3.1-1 Unterprogrammtechnik 

-10 

s u fi fi e = - tl 

0 

0 

s u fi fi e - 0 
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1 PASCAL 


Block: Konstantendefinitionsteil 

Variablendefinitionen 
Prozeduredefinitionen 
BEGIN durch,,;“ 
getrennte Anweisungen 
END 

Im Syntaxdiagramm des Anhangs ist die 
Definition ausführlicher dargestellt. Die 
Prozedur-Definition lautet: 
entweder: PROCEDURE name ; block 
oder: PROCEDURE name 

parameterliste ; block 


parameterliste: 

(durch Semikolon getrennt 
sind 

namen, die durch Kommas 
getrennt sind : Typ ) 

Da in der Prozedur-Deklaration wieder 
ein „block“ verwendet werden kann, ist 
es also auch möglich, dort neue Proze¬ 
dur Deklarationen einzuführen. 

Die Vielfalt läßt sich am besten an¬ 
hand von Beispielen kennenlernen. 


PROGRAM unterprgCINPUT,OUTPUT); 

VAR 

zahl:INTEGER; 
ch'.CHAR; 

PROCEDURE plusueg; 

BEGIN 

REPEAI 

READ(oh) 

UNTIL. c. h< >' + 1 
END; 

PROCEDURE lesint; 

BEGIN 

zahl:=0; 

REPEAT 

zahl:-zah1*10+ CORD Cch)-ORDC'0')); 
READ(oh) 

UNTIL ch-'+' 

END; 

BEGIN ^ Abb. 1 . 3 . 1-2 

WRITELN ; Zeichenerkennung mit Unterprogramm 

plusweg; 
lesint; 
plusweg ; 

WRITELN<' zahl ',zahl> 

END. 
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Sorcim PASCAL/M ver 03.05/03..05 
+++++123++++ zahl 123 



1.3 PASCAL-Prozeduren und Funktionen 


Abb. 1.31-1 zeigt ein kleines Pro¬ 
gramm, daß die Summe zweier eingege¬ 
bener Werte ausgeben soll. Dazu ist ein 
Unterprogramm mit dem Namen „ad¬ 
dier“ definiert. Es bildet in der Variablen 
„sum“ die Summe von „a“ und „b“. Die 
Variablen sind dabei im Definitionsteil 
des Hauptprogramms angegeben und 
vom Typ INTEGER. Diese Variablen 
sind, wie man sagt, GLOBAL. Sie gelten 
damit auch in der Definition des Unter¬ 
programms. Im Hauptprogrammteil 
wird einfach der Name des definierten 
Unterprogramms angegeben und es 
wird dann dort aufgerufen. 

Abb. 1.3.1-2 zeigt die Lösung der Pro¬ 
grammieraufgabe des vorigen Kapitels 
für die Aufgabe eine Zahl einzulesen 
und dabei führende und nachfolgende 
Plus-Zeichen zu ignorieren. Es werden 


dazu zwei Prozeduren definiert. Die Pro¬ 
zedur „plusweg“ hat die Aufgabe, solan¬ 
ge ein Zeichen einzulesen, bis dieses 
ungleich dem Plus-Zeichen ist. Die Pro¬ 
zedur „lesint“ liest Ziffern ein, wandelt 
diese in eine Zahl um, bis ein Plus-Zei¬ 
chen in den Eingabedaten erscheint. Im 
Hauptprogramm läßt sich damit eine 
sehr übersichtliche Programmstruktur 
erreichen. 

Prozeduren können aber auch Para¬ 
meter erhalten. Es werden dabei zwei 
verschiedene Arten von Parametern 
verwendet. Ein Parameter, der mit VAR 
deklariert ist, wird an das Unterpro¬ 
gramm in Form der Adresse übergeben, 
so daß das Unterprogramm Manipula¬ 
tionen direkt an der Variablen des aufru¬ 
fenden Programms durchführt. Wird der 
Parameter nicht mit VAR definiert, so 


PROGRRM unterprgC INPUT,OUTPUT); 


V fl R 

s u fi jQjb : INTEGER; 

PROCEDURE addier(VOR sunne:INTEGER5 x, y : INTEGER) 
BEGIN 

s u fi fi e : = x + y 
END; 


BEGIN 

URITELN5 

R E fi D (a ? b) ; 

a d d i e r C s u fi ? a, b) ; 

U R I T E L N ( 5 S U fi fi e = , J SU fi) Abb. 1.3.1-3 VAR-Parameter 

END. 


S 0 rc i fi PfiSCfiL/fl ver 93.05/03.05 

34 

56 

s u fi fi e = 9 0 
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1 PASCAL 


P R ü G R fl M u p r p o. r o. i v i e t e r (I N P U T ? 0 U T P U T ) ; 

V fl R 

i : INTEGER; 

P R0 C E 0U R E up rauf r u f(i : INTEGER); 
BEGIN 

MR I TELN (* we rt i i n UF'R ist: ’ , i 
i : = 5 
END; 

P R 0 C E D U R E u p r ft i t v o. r (v a r i : INTE G ER); 
BEGIN 

MR ITELN (» we rt i i r. UPRVfiR: 5 , i) 
i : = 6 
END; 


BEGIN 

MR ITELN; 
i := 12; 
u p r a u f r u f (i) ; 

M R I T E L N (•' w e r t i i n h a u p t p r g : ’ , i) ; 

i := 10; 

MR ITELN; 
u p r ft i t v o. r (i); 

M RI T E L N ( 5 w e r t i i n h a u p t p r g: ’ , i) ; 
END. 


S o r c i ft P Fl S C fl L M v e r W LJ . Li 5 / Li LJ . 0 5 
w e rt i in UPR ist: 12 
w e r t i i n h o. u p t p r g : 12 

w ert i in U P R V AR: 10 
w e r t i in h o. u p t p r g: 6 

Abb. 1.3.1-4 Wirkung von Parametern 
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1.3 PASCAL-Prozeduren und Funktionen 


wird der Wert der Variablen an das Un¬ 
terprogramm übergeben, und dort in ei¬ 
ne eigene LOKALE Variable gestellt. 
Abb. 1.3.1-3 zeigt ein Beispiel für den Ge¬ 
brauch von Parametern. Die Variable 
„summe“ ist dabei mit VAR definiert, da 
der Wert, der ihr im Unterprogramm zu¬ 
gewiesen wird, auch im Hauptpro¬ 
gramm noch erreichbar sein muß. 


Das Beispiel in Abb. 1.3.1-4 verdeut¬ 
licht noch einmal den Unterschied zwi¬ 
schen einem durch VAR deklarierten 
Parameter und einem normal deklarier¬ 
ten. LOKALE Variable können aber 
auch innerhalb der Prozedur definiert 
werden. Sie gelten dann aber auch nur 
innerhalb dieser Prozedur. Abb. 1.3.1-5 
zeigt dazu ein Beispiel. Werden Varia- 


PR0GRflM un %e r p r9 (INPUT 9 OUTPUT); 


a ? b 5 c : INTEGER; 

P R 0 C E 0 U R E w e c h s e 1 ; 

V ft R 

b : INTEGER; 

BEGIN 
bs = 1 ; 
c 5 = 2; 

URITELN (’UPRs b = J ,b, ? c= ? ,c) 
END; 

BEGIN 

URITELN; 

8 . 5=3; 

b 5 = 4; 

c ■ —.j; 

URITELN ( J HF’R: 
w echsei; 

URITELN( ’ HPR: 

END. 


a = ’,o., > b=’ > b, 5 c = ’ , c) j 
ü = *j fl j * b — ? ,b, c = 5 > c J 5 


S 0 rc i i y i PASCAL/M ver 03.05/03.05 
HPR: a=3 b = 4 c=5 
UPR: b = 1 c = 2 
HPR: o. = 3 b = 4 c = 2 

Abb. 1.3.1-5 Gültigkeitsbereich von Namen 
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PROGRRM uprtechnik( INPUT,OUTPUT); 


VflR 

i : INTEGER; 
zahl : REAL; 

PROCEDURE ausgabe(w : REAL; n : INTEGER); 

VAR 

tenp,i : INTEGER; 
rest : REAL; 

BEGIN (* Ausgabe eines REAL Wertes nit nax n Nachkonnas *) 
tenp := TRUNC(u); (* Ganzahliger Anteil *) 

NRITE(tenp); 

rest s = u - TRUNC (u) ; 

WRITEd .»); 

FOR i := 1 TO n 00 
BEGIN 

tenp := TRUNC(rest* 10); 

WRITE(tenp); 

rest := 1 0 * r e s t - TRUNC(10*rest) 

END 

END; 

BEGIN (* Hauptprogrann *) 

WRITELN; 

REPEAT 

URITEd Eingabe zahl in REAL und Nachkonnas 5 ); 

REAO(zahl, i); 

WRITELN; 

ausgabe(zahl, i); 

WRITELN 

U N TI L z a h 1 = 0 Abb. 1. 3.1-6 Nachkommaausgabe 

END. 


Sorcin PRSCRL/M ver 03.05/03.05 


E i ngabe 

zahl 

i n 

REAL 

und 

Nachkonnas 

23.34 4 

23.3400 

Eingabe 

zahl 

in 

REAL 

und 

N a c h k o n n a s 

12 3 

12.000 

Eingabe 

zahl 

i n 

REAL 

und 

N a c h k o n n a s 

0.23 2 

0.22 

Eingabe 

zahl 

i n 

REAL 

und 

Nach k o n n a s 

0.2345 3 

0.234 

E i ngabe 

zahl 

i n 

REAL 

und 

N a c h k o n n a s 

12.34353 

12.3 

Eingabe 

zahl 

i n 

REAL 

und 

Nachkonnas 

0 1 

0.0 
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PROGRAM uprverschachteln(INPUT,OUTPUT); 


PROCEDURE aussen(tl s INTEGER)j 
VAR 

al : INTEGER; 

P R 0 C E D U R E i n n e n j 
VAR 

ii : INTEGER; 

BEGIN 

i 1 : = 1; 
a u s s e n (1) j 

URITELNt’al Sal,’ il Sil) 
END; 

B E GIN (* o. u s s e n * J 
a 1 J = 2; 

IF t1=1 THEN al := 3; 

IF 11 =2 THEN innen; 


MRITELNI'al Sal); 


URITELNt’tl •' , tl) 


END; 



Abb. 1.3.1-7 

IN (* H au ptprogr a «n *) 

U nterprogramm- 

URITELN5 

verschachtelung 

a u s s e n (2) 5 


URITELN 



END. 


S o r c i fi PASCAL / M v e r 
al 3 
11 1 

a 1 2 i i 1 
al 2 
11 2 


bien in einem Unterprogramm mit dem 
gleichen Namen definiert, wie in einem 
übergeordneten Programmteil, so ist die 
Variable des äußeren Teils im Inneren 
nicht zugänglich. Umgekehrt können 


03 . 05/0 3.05 


Variablen, die im inneren Teil deklariert 
wurden, von außen nie erreicht werden, 
egal ob sie einen gleichen oder einen an¬ 
deren Namen haben. 

Abb. 1.3.1-6 zeigt einen praktischen 
Gebrauch der bisherigen Erfahrungen. 
Die Prozedur „ausgabe“ kann eine 
REAL-Zahl mit einer vorgegebenen 
Zahl von Nachkommastellen ausgeben. 
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PROGRAM Hanoi (INPUT,OUTPUT); {* aus Grogono CI 3 *) 

V fl R 

total : INTEGER; 

PR0CEDURE schiebet ur mC ho ehe,von,nach,nit : INTEGER ) 
PR0CE0URE schiebplatte( ninnweg,setze : INTEGER J; 
BEGIN 

W RIT E L N (n i <*i n w e g, * - > f , s e t z e) 

END; 

E:EGIN (* schiebetur« *) 

IF h o e h e > 0 
THEN 

BEGIN 

s c h i e b e t u r n (h o e h e -1 , v o n ? i v i i t ? n a c h) ; 

schiebpla 11 e(v on,na c h); 

schiebe t u rn(h o e h e-1,nit ? na ch,von) 

END 

END; 

B E GIN (* H a up t p t oqra n« *) 

uriteln; 

WRITEt’flnzahl: » ) ; 

R E fl 0 (t o t a 1) ; 

uriteln; 

s chiebetu r«(total»1,3»2) 

END. 


Soreifi PASCAL/M ver @3.05/03.05 
fl n z ahl: 4 

1 -> 2 
1 - > 3 

2- >3 
1 -> 2 

3- > 1 
3 - > 2 
1 -> 2 
1 -> 3 


Abb.l.3.1-8 Die Türme von Hanoi 


1.3 PASCAL-Prozeduren und Funktionen 


Unterprogramme lassen sich aber 
auch verschachteln. So können sich 
zwei Prozeduren z. B. gegenseitig aufru- 
fen, wenn sie wie in Abb. 1.3.1-7 kon¬ 
struiert sind. Das Beispiel besitzt hier 
keine weitere praktische Bedeutung, 
aber die Aufrufe lassen sich recht gut 
verfolgen. Der Aufruf von ,,aussen(2)“ 
bewirkt den Aufruf der Prozedur „aus¬ 
sen“. Der Parameter 2 wird an die dazu 
lokale Variable „tl“ übergeben. In der 
Prozedur „aussen“ ist eine weitere Pro¬ 
zedur „innen“ definiert. Das Programm 
startet dann mit der Zuweisung der Zahl 
2 an die Variable al. Es folgen dann zwei 
Abfragen. Ist „tl=l“, so wird an al der 
Wert 3 zugewiesen. Ist tl = 2, dann wird 
die Prozedur „innen“ aufgerufen, was 
jetzt der Fall ist. In „innen“ wird die Va¬ 
riable „il“ mit 1 belegt, um zu zeigen, daß 
der Wert auch bei erneutem Aufruf von 
aussen erhalten bleibt, „aussen“ wird 
diesmal mit dem Wert 1 aufgerufen und 
damit wird dort nicht erneut „innen“ 
aufgerufen. Danach wird der Wert von 
„al“ und „il“ ausgegeben und wieder 
nach „aussen“ zurückgekehrt. Dann 
folgt die Ausgabe von „al“ und „tl“. 

Noch etwas mehr ist ein Beispiel ver¬ 
schachtelt, daß Abb. 1.3.1-8 zeigt. Es geht 
um das Problem der Türme von Hannoi. 
Abb. 1.3.1-9 zeigt eine schematische 
Anordnung des Spiels. Es sind drei Tür¬ 
me vorhanden. Auf dem Turm 1 befindet 
sich eine Anzahl von Scheiben, die nach 
oben hin mit abnehmenden Durchmes¬ 
ser angeordnet sind. Diese Scheiben 
müssen nun auf Turm 3 gebracht wer¬ 
den, mit Hilfe von Turm 2. Dabei darf im¬ 
mer nur eine Scheibe von einem Turm 
auf einen anderen transportiert werden 
und es darf nie eine größere Scheibe auf 
einer kleineren liegen. 

Unser Programm löst dieses Problem 
und gibt die Sequenz aus, in der die 



1 2 3 

Abb. 1.3.1-9 Spielsituation zu 3.1.3.1-8 


Scheiben auf die jeweils angegebenen 
Türme gelegt werden müssen. Bei grö¬ 
ßeren Werten für die Anzahl nimmt da¬ 
bei die Zahl der benötigten Züge rapide 
zu. 

Soll eine Prozedur z. B. in einer ande¬ 
ren Prozedur aufgerufen werden, bei 
der sie noch nicht definiert ist, so kann 
dies durch eine FORWARD-Deklaration 
durchgeführt werden. Die FORWARD- 
Prozedur soll umgekehrt wieder die er¬ 
ste Prozedur aufrufen. Abb. 1.3.1-10 zeigt 
den Gebrauch der FORWARD-Deklara¬ 
tion. Normalerweise läßt sie sich aber 
dadurch umgehen, daß bei rekursiven 
Aufrufen die Deklarationen ineinander 
geschachtelt werden. Die Parameter 
werden nur im FORWARD-Teil defi¬ 
niert. Die eigentliche Definition des Pro¬ 
zedur-Rumpfes folgt später ohne Anga¬ 
be von Parametern. 

Ein Beispiel wie es auch ohne FOR¬ 
WARD geht, zeigt Abb. 1.3.1-11. Aufgabe 
ist es, durch Eingabe einer Booleschen 
Formel daraus eine Schaltung zu kon¬ 
struieren. Vielleicht läßt sich daraus ein¬ 
mal eine Art Hardwarekonstruktions¬ 
sprache entwickeln, es sind die Ver¬ 
knüpfungen „+“ für ODER, für UND 
und “ für die NEGATION definiert. 
Mit Klammern können die Operationen 
verschachtelt werden. Das Syntaxdia¬ 
gramm der Eingabesprache ähnelt der 
Definition einer Expression (Ausdruck], 
nur daß alle Zahlen-Arithmetiken nicht 
vorhanden sind. Der Übersetzungsvor¬ 
gang ähnelt sehr dem eines Compilers 
für eine Programmiersprache. 
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1 PASCAL 


PROGRRM forwaerts(INPUT,OUTPUT); 


PROCEDURE spaetertk : INTEGER); FORWARD; 
PROCEDURE vorherd : INTEGER); 

BEGIN 

URITELN(’vorher ’,1); 

IF 1=1 THEN spaeter(1-1)5 
URITELNt’vorher ende M) 

END; 

PROCEDURE spaeter; 

BEGIN 

URITELN!’ spaeter ’ , k) ; 

IF k=0 THEN vorher(k); 

URITELN(’spaeter ende ’ , k) 

END; 


BEGIN 

URITELN; 

URITELN!’ verschachtelter auf ruf ’ ) ; 
v o r h e r (1); 

URITELN!’ ********************** ’) 
END. 

B > p r u n p r o c f o r 

Sorcin PRSCAL/M ver 03.05/03.05 
verschachtelter aufruf 
vorher 1 
spaeter 0 
vorher 0 
vorher ende 0 
spaeter ende© 
vorher ende 1 
********************** 

Abb. 1.3.1-10 FORWARD-Prozeduren 
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i 
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1 

1 

i 

1 

1 

l 

l 

1 

l 

1 

i 

l 

1 

l 

1 

l 

1 

l 

1 

3 

4 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

5 

6 

8 

9 

18 

16 

18 

10 

10 

10 

11 

1 1 

11 

11 

11 

1 1 

11 

11 


prograft konsl; 

(* Konstrukta RDK 810904 VI.0 *) 

(* Hardware Konstruktionssprache *) 

const 

ftaxstr = 9; 
type 

strtyp = packed array [0..naxstr] of char; 


war 

nextchar : char; <einlese Zeichen > 
value : strtyp; {generiertes synbol > 
wert : strtyp; {fuer ausgabe > 

procedure initnew(war s : strtyp); 

war 

i : integer; 
begin 

for is = 0 to naxstr do sCi] := 9 
sC0] := 5 

sU3 := ’8’ 
end; 


procedure gennewtvar s : strtyp); {generiere next syftbol > 
war 

sl : strtyp; 
i : integer; 

begin 

s 1 • = s; 

for i := 0 to naxstr do sCi] := 9 
sC03 := ’Sc’ 5 
s [ 1 ] := s u c c (s 1 CI] ) 
end; 

procedure readchar; 
beg i n 

read (nextchar) 
end; 


Abb. 1.3.1-11 
Hardware-Compiler 
(PASCAL/Z) als Beispiel 


procedure undaus(war el,e2»a : strtyp); 
beg i n 

w r i i e 1 n (’ * j 9 - 9 ) ; 
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1 PASCAL 


24 

24 

24 

24 

24 

24 

24 

24 

24 

24 

25 
25 


12 

w r i t e 1 n ( e 1 


-1 i ! ); 

13 

w r i t e 1 n (» 

’ , 5 

1 & 1-’ , a) 

14 

w r i t e 1 n ( e 2 


-1 i »); 

15 

w r i t e 1 n (» 

J , » 

?) 

16 

end; 



16 




16 

procedure oderaustvar e 

1 1 e2, 

a : s t r t y p) 

16 




16 

b e g i n 



16 

w r i t e 1 n ( 5 


5 ); 

1? 

w r i t e 1 n ( e 1 

1 , - 

-1 > l 5 ); 

18 

w r i t e 1 n (* 

5 , ’ 

1 = 1 —» , a) 

19 

w r i t e 1 n ( e 2 

j ! -- 

-111 ’ ); 

20 

w r i t- e 1 n (’ 

’ , J 

5 ) 

21 

end; 



21 




21 

procedure nichtaustvar 

e, a : 

s t r t y p) > 

21 




21 

b e g i n 



21 

w r i t e 1 n (’ 

* , ! 

5 ); 

o -i 

a t. 

w r i t e 1 n ( e 

i* — 

-i 10---» f a 

d 3 

w r i t e 1 n (’ 

5 , » 

») 

24 

end; 



24 



rj 

24 



Z 

24 




24 

procedure e x p r(var e x p r 

v a 1 : 

s t r t y p ) j 

24 




24 

v a r 



24 

n e x t-1- e r n v a 1 : s t r t y 

p; 


24 




24 

procedure t e r n ( v a r t e r nv a1 

J s t r t y p ); 


zu Abb. 1.3.1-11 


ca r 

n e x t f a c v a 1 '• s t r t y p j 

procedure fo.ctor(var i a c v a 1 : s t r t y p) ; 
var 

i s integer; 
b e g i n 

if nextchar in [’ (»,»-’ ] 
t h e n 
b e g i n 
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1.3 PASCAL-Prozeduren und Funktionen 


case nextchar of 
’ (’ : begin 

readchar; 
expr(facval); 

if nextchar = ’)’ then readchar 
eise w r i t e 1 n (’ e r r o r •’ ) 


end; 

5 - ’ s b e g i n 

readcharj 
fac tor(facval); 
gennew(value)j 
n i c h t a u s (t a c v a 1, v a 1 u e) j 
f a c v a 1 s = v a 1 u e 
end 


end 

end 

eise 

i f nextchar in then 

beg i n 


f o r i:=0 to naxstr do facvalti] := ’ 
f a c v a 1 [ 0] s = nextchar; 


readchar 

end 

end; ( factor > 


zu Abb. 1.3.1-11 


begin {t e r n > 

facto r(termval); 
while nextchar = ’ * ’ do begin 
readchar; 

factor(nextfacval) ; 
gennew(value)5 

undaus (t e rnva 1 } next f acva 1 ? oa 1 ue 1 ; 

termval s = value 

end 

end; lende tern) 


begin < e x p r > 

t e r n ( e x p r v a 1) ; 

while nextchar =’+’ do begin 
r e a d c h a r 5 

ternfnextternval); 
gennew(value); 

o d e r a u s (e x p r v a 1, n e x 11 e r n v a 1, v a 1 ij e ) ; 
exprval := value 
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1 PASCAL 


61 end 

61 end; {ende expr) 

61 

61 

61 b e g i n {Main) 

61 

61 write1n (’ Konstrukte Hardwaregenerator S 

62 w r i t e 1 n (’ Version 1.0 810904 R-D. Klein 

63 writeln; 

64 initnew(value); 

65 readchar; 

66 expr(wert); 

6? urite1n(’ an ’,wert,’ liegt ausgang ’); 

68 end. 

Konstrukte Hardwaregenerator Sprac-he 
Version 1.0 810904 R-D. Klein 

e + a * (d + z) . 

d -I > I 

I = I-8=1 

2 ---111 


| k |-gj 2 zu Abb.1-3.1-11 

U ---I I 


e -I > I 

1 = 1-8=3 

&2 ---111 
a n & 3 liegt au sgang 


Konstrukte Hardwaregenerator Sprache 

Version 1.0 810904 R-D. Klein 


a * - (h + - k) . 

k -I IO-8=1 


P r a c h e ’ ) 
’ ) 
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1.3 PASCAL-Prozeduren und Funktionen 


h 

-i > 1 

1 = 1 ---8,2 

8,1 

-111 

8:2 

1 

1 

1 

| , — 

1 1 

1 1 — 
o 

1 

1 

1 

fio 

CO 

a 

---1 1 

1 8,1-8:4 

8,3 

---1 1 

an 8,4 

liegt ausgang 


Konstrukta Hardwaregene rator Sprache 
Version 1.0 810904 R-D. Klein 


a+(g*j*r+b+c+j*-(l+-o+i)*n). 


-1 I 

I Sd-8,1 

- i I 

- zu Abb. 1.3.1-11 


u 


r 


I > I 

I = I-&3 

I 1 I 


& 3 -I > I 

1 = 1-8,4 

c -i 1 I 


8,2 

b 



'3 

•j 


o -I 10-&5 
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1 PASCAL 


1 

--- 1 > 1 

1 = 1 — 

8:5 

---111 

Sc 6 

—1> 1 

1 = 1 — 

i 

--- i 11 

8t 7 

---1 10- 

0 

---1 1 
m — 

ScS 

___i | 

8< 9 

---1 i 

1 8t 1 -- 

i y i 

-1 1 

8=4 

— I> 1 

1 = 1 — 


---111 

a 

--- 1 >1 

1 = 1 — 

&; 

---111 

an 8= < 

1 i e 


1.3.2 FUNCTION-Deklaration 

Funktionen werden an der gleichen 
Stelle definiert, wie Prozeduren. Wir 
hatten bisher auch schon von Funktio¬ 
nen Gebrauch gemacht, nämlich von 
eingebauten Standardfunktionen, wie 
TRUNC(x) usw. Eine Funktion unter¬ 
scheidet sich formal von einer Prozedur 
nur dadurch, daß sie auch einen Wert 


-&6 


-8c 7 


-- 8:8 


-8c 9 

zu Abb. 1.3.1-11 

- 8:5 


-*«; 


— 8c < 


g t o. u s g a n g 

besitzen kann. Bei Prozeduren ließ sich 
aber ein Wert an das aufrufende Pro¬ 
gramm geben, dadurch, daß ein Parame¬ 
ter mit VAR deklariert wurde. Bei Funk¬ 
tionen ist dies eleganter: 
entweder: FUNCTION 

name : typ ; block 
oder: FUNCTION name 

parameterliste : typ; block 
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1.3 PASCAL-Prozeduren und Funktionen 


PROGRflli Funktionen (INPUT, OUTPUT) ; 

VflR 

xl,x2,yl,y2 : REAL; 

FUNCTION distance(xl,yl,x2,y2 : RERL) : REAL; 

BEGIN 

distance := SQRT((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)) 

END; 

BEGIN (* Hauptprogrann *) 

URITELN; 

REPERT 

URITEU xl,yl x2,y2 eingeben : M; 

RERD(x1,y1,x2,y2); 

WRITELN; 

URITELN (’ Distanz der beiden Punkte: »,distance(x1,y1,x2,y2)); 
UNTIL (x 1 =x2) AND (y 1 =y2) 

END. 


Abb. 1.3.2-1 
Beispiel Funktionen 


Distanz der beiden Punkte: 1.414 21 e O 
x1,y1 x2,y2 eingeben : 1, 1 , 1, 1 

Distanz der beiden Punkte: 0.0000080 


Sorcin PASCAL/M uer 03.05/03.05 
x1,y1 x2,y2 eingeben : 1,2,3,4 

Distanz der beiden Punkte: 2.8 2 8 4 3e 0 
x1,y1 x2,y2 eingeben : 1, 1,2,2 


Dabei gibt „typ“ den Typ des Wertes der 
Funktion an. 

Beispiel: 

FUNCTION quad(x : REAL):REAL; 
BEGIN 

quad ; = x - X - X - X 
END; 

Die Funktion „quad“ bildet die vierte Po¬ 
tenz des Wertes des Parameters. Ein 
Aufruf kann dann wie folgt aussehen: 
a := quad(b); 

Der Variablen a wird der Wert von 
b b • b b zugewiesen. 

Abb. 1.3.2-1 zeigt ein ausgeführtes Bei¬ 
spiel. Es ist die Aufgabe gestellt, den Ab¬ 
stand zweier Punkte einer Ebene zu be¬ 
rechnen. Dazu wird die Funktion „di¬ 


stance“ definiert. Im Hauptprogramm 
werden die Koordinaten zweier Punkte 
eingelesen, und die Funktion „distance“ 
zur Berechnung aufgerufen. 

Ein weiteres Beispiel zeigt Abb. 
1.3.2-2. Eine Funktion soll ausgeplottet 
werden, indem zur Darstellung ein 
Zeichen verwendet wird. Es wird die 
Funktion „poly“ definiert, die die Be¬ 
rechnung der gewünschten Funktion 
beinhaltet. Mit einer Prozedur „plot“ 
wird die Ausgabe der Funktion durchge¬ 
führt. Durch die modulare Struktur ist es 
leicht möglich, beispielsweise die Proze¬ 
dur „plot“ durch eine andere Definition 
zu ersetzen, um auf einen echten Plotter 
auszugeben. Auch läßt sich die ge- 
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P R 0 G R fl M t u o k t i o n i I N P U T » U U T P U T J 5 


V ft R 

o. : REAL; 
i j 11 : INTEGER; 


FUNCTION po ly (:<: REAL) : REAL; 


BEGIN 

poly J= x*x*x - x 
END; 


PROCEDURE 
V fl R 


i : 


Plot(x: INTEGER)j 
INTEGER? 


Abb. 1.3.2-2 

Plotten von Funktionen 
mit Funktionen 


BEGIN 

F 0 R i: = © T 0 x D 0 
URITEt» 5 )? 
URITELNC* *») 

END; 


BEGIN 

URITELN5 

URITELN(' Funktionsplot *); 

a s = - 2 5 

REF'EflT 

t1 := TRUNC(po1y(a)*5 + 40); 

P 1 o tul); 

o. ; = o. + 8.3 
UNTIL a> = 2 
END. 


S o r c i fi PASCAL / M u e r 0 3.0 5 / 0 3.0 5 
F u n k t i o n s p 1 o t 


* 


* 


* 

* 

* 

* 

* 

* 

* 

* 

* 


* 
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1.3 PASCAL-Prozeduren und Funktionen 


PRQGRflM rekursion (INPUT,OUTPUT); 


V H R 

i s INTEGER; 

FUNCTION f ac (n : INTEGER) s INTEGER; 

BEGIN 

IF n = 0 

THEN fac := 1 

ELSE fac s = fac(n-l)*n 

END; 

BEGIN 

uriteln; 

FOR i:=8 t o 7 DO 

URITELN ( 9 FflC von M,» ist J ,fac(i)) 

END. 


S o r c i n 

PASCAL' 

'fl ver 

03.05/03.05 

FflC 

u o n 

0 

i st 

1 


FRC 

u o n 

1 

i st 

1 


FflC 

v o n 

2 

ist 

2 


FflC 

v o n 

o 

ist 

6 


FflC 

v o n 

4 

i st 

24 

Abb. 1.3.2-3 Fakultät Rekursiv 

FflC 

v o n 

5 

i st 

120 


FflC 

v o n 

6 

i st 

720 


FflC 

v o n 

? 

ist 

5040 



wünschte Funktion leicht durch eine 
andere ersetzen, ohne im Hauptpro¬ 
gramm viel ändern zu müssen. Wie bei 
Prozeduren, können auch bei Funktio¬ 
nen mehrere Parameter verwendet oder 
LOKALE Variablen definiert werden. 
Rekursion, also der Aufruf einer Funk¬ 
tion durch sich selbst, ist ebenfalls mög¬ 
lich und hierzu gibt es ein klassisches 
Beispiel, wie Abb. 1.3.2-3 zeigt. Es gibt ei¬ 
ne Funktion, Fakultät genannt, die 
schon rekursiv definiert ist. FAK(O) er¬ 
gibt per Definition den Wert 1. Dann gilt 
ferner FAK(i). Also zu deutsch, die Fa¬ 


kultät eines Wertes ist der Wert multi¬ 
pliziert mit dem Wert der Fakultät des 
Wertes, vermindert um eins. Beispiel: 
Zu berechnen ist FAK(3). Also gilt 
FAK(3) ist FAK(3-l) • 3 also FAK(2) • 3, 
ferner FAK [2 —l] 1 2 * 3, also 
FAK(O) • 1 • 2 • 3. Für FAK(O) gilt aber das 
Abbruchkriterium der Definition, 
FAK(O) ist 1, also FAK(3) ist 1 • 1 • 2 • 3, also 
6. Im Programm ist diese Definitionswei¬ 
se genau übernommen. Dadurch, das 
PASCAL die Parameter mit lokalen Va¬ 
riablen verwaltet (wenn kein VAR gege¬ 
ben ist), funktioniert das Verfahren 
auch. 
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1 PASCAL 


1.4 PASCAL und variable Typen 

1.4.1 Skalare Typen 

Wir kommem nun zu einem ganz neuen 
Aspekt von PASCAL. Bisher ließen sich 
die Befehle auch beispielsweise in BA¬ 
SIC noch gerade so lösen. Doch nun zu 
den besonderen Fähigkeiten von PAS¬ 
CAL, die allerdings auch noch ein paar 
andere höhere Sprachen haben. 


Wir hatten bisher nur die Standard- 
Typen INTEGER, REAL, CHAR und 
BOOLEAN gebraucht. Es ist nun aber 
auch möglich, eigene Typen zu definie¬ 
ren. Dazu gibt es eine Typen-Definition, 
die sich wie folgt in das Definitionssche¬ 
ma einreiht: 

CONST Definitionen 
TYPE Definitionen 
VAR Definitionen 
... wie bisher ... 


PROGRAM vartyp( INPUT,OUTPUT) ; 

TYPE 

tag = (Montag,dienstag,Mittwoch,donnerstag, 
freitag,saMstag,sonntag); 

VAR 

tagvar : tag; 

ferientag,arbeitstag : tag; 

BEGIN 

URITELN; 

ferientag := sonntag; 

F0R tagvar := Montag TO sonntag 00 

BEGIN 

URITE(* TAG »,GRD(tagvar)+1); 

IF tagvar = ferientag 

THEN 

URITE(’ frei ») 

ELSE 

URITEt» nicht frei »); 

URITELN 

END 

END. 


So rci m PASCAL/ M ve r 03.05/03.05 
TAG 1 nieht frei 
TAG 2 nicht frei 
TAG 3 nicht frei 
TAG 4 nicht frei 
TAG 5 nicht frei 
TAG 6 nicht frei 
TAG 7 frei 


Abb. 1.4.1-1 Variant-Typen 
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1.4 PASCAL und variable Typen 


Der einfachste Typ, der definiert wer¬ 
den kann, ist ein scalarer Typ. So läßt 
sich z. B. einfach angeben: 

TYPE 

modell = (rot, gruen, blau); 

Es ist damit ein neuer Typ „modell“ defi¬ 
niert. Nun kann bei der Deklaration von 
Variablen auch dieser neue Typ ver¬ 
wendet werden. 

VAR 

auto : modell; 

Die Variable „auto“ ist vom Typ modell, 
sagt man. sie kann drei Werte anneh¬ 
men: rot, gruen, blau. 

Damit ist z. B. folgender Programmab¬ 
schnitt möglich 

auto : = rot; 

IF auto = gruen THEN ... 


Intern werden der Variablen „auto“ IN- 
TEGER-Werte zugewiesen. Die angege¬ 
benen Werte „rot, gruen, blau“ besitzen 
damit eine Ordnungszahl. Sie wird von 
links nach rechts, beginnend mit 0 ver¬ 
geben. Der Wert „rot“ besitzt also die 
Ordnungszahl C, „gruen“ den Wert 1 und 
„blau“ den Wert 2. Die Ordnungszahlen 
können über die Funktion ORD(X) abge¬ 
rufen werden, die wir schon früher für 
CHAR-Größen verwendet hatten. Im 
Standard-PASCAL ist es nicht möglich, 
einen solchen Typ direkt auszugeben 
oder einzulesen, also z. B. „WRITE(au- 
to); ergibt nicht etwa die Ausgabe „rot“, 
sondern führt allenfalls zu einer Fehler¬ 
meldung. Mit ,,WRITE(ORD[auto));“ 
geht es, nur als Ergebnis wird eine Zahl 


PROGRfiM vartyp(INPUT,OUTPUT); 

TYPE 

buchst abe = (alp ha * b e t a > ga i v i na) ; 


VflR 

b u 1 : b u c h s t a b e; 


B E G IN { Beispiel fuer 0 p eratione n > 

nritelh; 

b u 1 s = b e t a; 

I4RITELN ( ’ GRD * , GRD (bul) ) 5 
bu 1 s= SUCC (bul)5 
URITELNC*SUCC’,0RD(bul))5 
bul := FRED (FRED (bul)); 

WRITELN( 9 PRED FRED*,ORD(bul)); 

IF alpha < beta THEN URI TELN( 5 a1pha < beta’); 
IF bul > alpha THEN URITELN(’ bul > alpha ’) 
END. 


S o r c i i v i PASCAL / M uer 03.85/ 8 3. 85 

0RD1 

SUCC 2 

PRED PRED8 

a1 p h a < beta 


Abb. 1.4.1-2 

Beispiele für Operationen 
mit Variant-Typen 


51 


PRO GRAM va rt yp (INPUT,OUTPUT), 


TYPE 

zustand = (low,high,tristate); 


eingl,enable,ausgang : zustand; 
ch1 : CHflR; 


PR0CEDURE buffer(e1,enableszustand; yar a: zustand) 


BEGIN 

IF e1 = tristate THEN e1 : = high; < bei TTL > 
IF e n a b 1 e = tristate T H E N e n a b1e : = high; 

IF e n a b 1 e = 1 o w 
THEN 

a : = e 1 { d u r c h s c h a 11 e n > 

ELSE 


a : = t r i s t a t e 

END; 

BEGIN •( Hauptprograi'in > 
WRITELN; 

REPEflT 

«RITE (»Eingabe eingl 
REflO(chl)5 
WRITELN; 

C fl S E c h 1 0 F 


Abb. 1.4.1-3 
Logiksimulator für 
TRI-State-Gatter 


(0 l T) 5 ); 


»0» " eingl := low; 

» 1 5 • eingl s = high; 

’T 5 : eingl := tristate 

END; 

WRITE( 5 Eingabe enable (@ 1 T) J ); 
READ(chl); 

WRITELN; 

CflSE chl OF 

»0» • enable := low-5 

» 1» • enable := high; 

» T» s enable := tristate 


END; 

b u f fe r (eingl,enable»au sg a n g); 

CflSE a u s g an g 0 F 

low : WRITELN(» low ’); 
high: WRITELN! 5 high 5 ); 
tristate: WRITELN ( 5 tristate 5 ) 


END 

UNTIL 1=0 
END. 




1.4 PASCAL und variable Typen 


Sorcin PflSCHL/M ver 83.05/03.05 


Eingabe e i n g 1 (8 1 T)0 

Eingabe enable (0 1 T)1 
tristate 

Eingabe eingl (0 1 T)1 
Eingabe e n a b1e (0 1 T ) 8 
h i g h 

Eingabe ein g 1 (0 1 T)0 

Eingabe e n a b1e (8 1 T)8 
low 

Eingabe eingl (0 1 T)1 
Eingabe enable (8 1 T)1 
tristate 

Eingabe ein g 1 (8 1 T)T 

Eingabe e n a b1e (8 1 T)0 
h i g h 

Eingabe eingl (0 1 T)T 
Eingabe e n a b1e (8 1 T)T 
tristate 

Eingabe ein g 1 (8 1 T ) T 
Eingabe enable (0 1 T) 1 
tristate 

Eingabe ein g 1 (0 1 T)8 

Eingabe enable (8 1 T)T 
t r i s t a t e 

zu Abb. 1.4.1-3 


ausgegeben. Abhilfe läßt sich hier nur 
mit einer CASE-Anweisung schaffen. 
(Es gibt ein Mikroprozessor-PASCAL 
bei dem es dennoch geht: PASCAL/Z 
(siehe folgende Kapitel)). 

Abb. 1.4.1-1 zeigt ein praktisch ausge¬ 
führtes Programm, es wird der Typ „tag“ 
definiert, der die Werte „montag.. Sonn¬ 
tag“ annehmen kann, „tagvar“, „ferien- 
tag“ und „arbeitstag“ sind als Variable 
vom Typ „tag“ definiert. Das Programm 
zeigt nun, wie elegant mit diesen Varia¬ 
blen umgegangen werden kann. 

Neben ORD(X) gibt es aber auch noch 
andere Funktionen, die verwendet wer¬ 
den können. SUCC(X) gibt den Wert des 
nächsten Elements und PRED(X) ergibt 


den Vorgänger, bezogen auf die Reihen¬ 
folge der Elemente, wie sie in der TYPE- 
Definition angegeben wurde. Abb. 
1 . 4 . 1-2 zeigt ein Beispiel dafür. 

Eine Lösung für ein völlig anderes 
Problem zeigt Abb. 1 . 4 . 1 - 3 . Ein TRI-State 
Buffer soll simuliert werden. Es sind drei 
Logizustände erlaubt. LOW, HIGH und 
TRISTATE. Dazu wird der Typ „zu- 
stand“ definiert. Mit der PROCEDURE 
„buffer“ wird das logische Verhalten des 
Buffers simuliert. Dabei wird berück¬ 
sichtigt, daß bei Standard-TTL Logik ein 
offener Eingang wie mit HIGH beschäl¬ 
tet aussieht. Im Hauptprogramm ist es 
nun möglich, den Eingang und den Frei¬ 
gabeeingang mit einem der drei Werte 
zu beschälten und der Wert des Aus¬ 
gangs wird angegeben. 

1.4.2 Bereiche 

Durch zwei Konstanten kann ein Be¬ 
reich definiert werden. Zum Beispiel: 

TYPE 

index = 1 .. 100; 

Der Typ Index wird mit einem Bereich 
von 1 bis 100 definiert. Einer Variablen, 
die vom Typ „index“ ist, kann nur ein 
Wert zwischen 1 und 100 zugewiesen 
werden. Liegt der Wert außerhalb des 
Bereichs, so wird eine Fehlermeldung 
ausgegeben. Das es sich um einen Be¬ 
reich handelt, wird durch die zwei Punk¬ 
te angegeben. Abb. 1 . 4 . 2-1 zeigt ein Pro¬ 
grammbeispiel. Der Typ „buchstabe“ ist 
mit einem Bereich von ’A’ bis ’Z’ defi¬ 
niert, und „Ziffer“ mit einem Bereich von 
0 bis 9. Bei dem Hauptprogramm wird 
nun abwechselnd ein Buchstabe und ei¬ 
ne Ziffer als Eingabe verlangt. Bei einer 
Fehleingabe gibt es eine Compilerab¬ 
hängige Fehlermeldung. Normalerweise 
sollte eine Fehleingabe per Programm 
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1 PASCAL 


PROGRRM subränge UNPUT,OUTPUT); 

TYPE 

buchst abe = ’ R ’ .. 5 Z 5 ; 

Ziffer = ’ 8 ’ .. ’ 9 5 ; 

i ndex = 1..106; 

VRR 

i * i n d e x; 
bu : buchstabej 
zi : Ziffer; 

BEGIN 

WRITELN; 

FOR i:=1 TO 10 DO 
BEGIN 

W RIT E (’ Buchstabe eingeben ’ ) ; 
RERD(bu); 

WRITELN; 

W RIT E (’ Ziffer eingeben 
RERO(zi); 

WRITELN; 

WRITELN( J -> J ,bu,zi, 5 , i) 

ENO 

END. 


So rein PRSCRL/M ver 03.05/83.05 
Buchstabe eingeben B 
Ziffer eingeben 5 

- > B 5 < -1 

Buchstabe eingeben J 
Ziffer eingeben 3 
->J3<-2 

Buchstabe eingeben K Abb. 1.4.2-1 Unterbereiche 

Ziffer eingeben 2 
->K2<-3 

Buchstabe eingeben M 
Ziffer eingeben 1 

— > M1 < — 4 

Buchstabe eingeben fl 
Ziffer eingeben 9 
->R9<-5 
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1.4 PASCAL und variable Typen 


Buchstabe e i n g eben 0 
Ziffer eingeben 8 
- > 0 8 < - 6 

Buchstabe eingeben U 
Ziffer eingeben 2 
- > IJ 2 < - 7 

Buchstabe eingeben N 
Ziffer eingeben 3 
->N3<-8 

Buchstabe eingeben J 
Ziffer eingeben 2 
->J2<-9 

Buchstabe ein g e b e n K 
Ziffer eingeben 9 
-> K9<-18 


abgeprüft und die automatische Fehler¬ 
erkennung nur bei der Erkennung von 
Programmierfehlern verwendet wer¬ 
den. 


1.4.3 Mengen 

Eine Menge ist eine Ansammlung von 
Objekten des gleichen Typs. In PASCAL 
lassen sich nun auch Typen definieren, 
die eine Menge darstellen können. Bei¬ 
spiel: 

TYPE 

bauteile = (pc,ram,rom,cpu,io, 
eprom,alu,register, 
buffer); 

Computer = SET OF bauteile; 

VAR 

z80 : Computer; 

Nun, die erste Zeile in der Typ Defini¬ 
tion ist ja noch klar, „bauteile“ ist ein 
Typ, der die Werte „pc.. buffer“ beinhal¬ 
tet. Der Typ „Computer“ definiert nun ei¬ 
nen Mengentyp. „z80“ ist als Variable 
des Typs „Computer“ definiert; ihr kön¬ 
nen also Mengen zugewiesen werden. 
Beispiel: 

z80 :— [alu,register,pc]; 


zu Abb. 1.4.2-1 


„z80“ ist nun eine Menge von Bauteilen, 
die „alu“, „register“ und „pc“ beinhaltet. 

Mit Mengen kann in PASCAL genau¬ 
so gerechnet werden, wie es von der 
Mengenlehre her bekannt ist. 

Eine Menge wird durch „[ ]“ an¬ 

gegeben. Es ist möglich, die Vereini¬ 
gungsmenge, UNION genannt zu bilden. 
Dies geschieht mit dem Zeichen: 
z80 := [register, alu] + [buffer]; 
Ebenfalls läßt sich der Durchschnitt bil¬ 
den. Dazu wird das „ “-Zeichen verwen¬ 
det: 

z80 =: [cpu,register,alu,buffer] • 
[register,alu,buffer,rom]; 

Mit dem Zeichen “ kann die Differenz 
zweier Mengen gebildet werden, men- 
ge2 - mengel ergibt eine Menge, die alle 
Werte der menge2 enthält, die in men- 
ge2 enthalten waren und nicht in men¬ 
gel. 

Dann gibt es noch Operatoren, die 
Vergleiche ermöglichen: 
mengel = menge2 Gleichheit 

zweier Mengen 
mengel 0 menge2 Ungleich 
mengel (=menge2 mengel ist in 

menge2 enthalten 
mengel >= menge2 mengel enthält 
menge2 

element IN menge Das Element 

„element“ ist in 
„menge“ enthalten. 

[ ] Leere Menge 
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PRÜGRAM sets(INPUT,OUTPUT); 

TYPE 

fach = (deutsch)nathe»englisch); 
1 eh rer = SET OF fach; 


V fl R 

antorumueller,schulze : 1 ehrerj 

k lasse : 1 e h rer; 

ch : CHAR; 

Abb. 1 . 4 . 3.1 

B E G I N Die Schulklasse 

14 R I T E L N j mit Mengen-Befehlen 

a n t o n : = [ n a t h e, e n g 1 i s c h ] ; 
n u e 11 e r : = C d e u t s c h» e n g 1 i s c h 1 5 
Schulze : = [deutsch .. englisch]; 
klasse : = [ 1 ; 

REPEflT 

WRITEt’Eingeben n a n e (a n t o n» n u e 11 e r , s c h u 1 z e ) ’ ) 
REAOLN(ch); 

C fl S E c h 0 F 

’ a 5 : k 1 a s s e '■= k 1 a s s e + a n t o n ; 

’ n ’ • klasse : = klasse + n u e 11 e r; 

’s’: klasse : = klasse + schulze 

END 

1J N TI L klasse = [ n a t h e , e n g 1 i s c h , d e u t, s c h ] ; 

URI TELN (•' Klasse bekon«t alle Fa.echer •' ) 

END. 


So rein PASCAL/M ver @3.05/03.05 
E i n g e b e n n a n e (a n t o n , n u e 11 e r ,s c h u 1 z e ) s c h u 1 z e 
K1a s s e b e k onn t alle F a e c he r 
P r u n s e t 1 

So rcin PASCAL/M ve r 03.05/03.@5 
Eingeben nane (anton > nue11er j schu1ze)nue11er 
E i n g e b e n n a n e £ a n t o n > n u e 11 e r, s c h u 1 z e) a n t o n 
Klasse b e k on nt alle F a e c h e r 
P r u n s e 11 

Sorcin PASCAL/M ver 03.05/03.05 
E i n g e b e n n a n e ( a n t o n, n u e 11 e r» s c h u 1 z e) n u e 11 e r 
Eingeben nane (anton , nue11e r , schu1ze)schu1ze 
Klasse b e k on n t alle F ae c h e r 
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PROGRAM sets(INPUT,OUTPUT)5 
TYPE 

e 1 e m e n t = ’ a ’ . . ’ z ! ; 

Menge = SET 0 F eie m ent; 

VAR 

ne n g e 1 ,n e ng e 2 >n e n ge 3,grun dnenge 

PROCEOURE g e t m e n g e ( V A R Meng : Menge); 
VAR 

ch : CHAR; 

BEGIN 

NRITE( 5 Menge o.. . z . = s t o p: ’ ) ; 
m eng := [ 3; 

REF'EAT 

READ(ch); 

IF ch IN grund m enge T HEN m eng 
UNTIL ch = ’.'; 

WRITELN; 

END; 


PR0CEDURE m engeaus (eiengenvo. r : m enge) ; 
VAR 

count : eie m ent; 

BEGIN 

F0R count : = ’ o. ’ TO ! z f DO 
IF count IN m enge n va r 
THEN NRITE(count) 

ELSE URITE(’ ’); 

NRITELN 
END 5 

BEGIN 

NRITELN; 

orundnenge := [ ! a’ . . ’ z’ 3 ; 

REPEAT 

g e t m e n g e ( m e n g e 1) ; 
g e t m e n g e ( m e n g e 2 ) ; 

NRITELN(»Menge . - 

NR ITE( 5 Mengel ’); 
m e ngeaustMengel); 

N RIT E(*m e ng e 2 ’); 


: Menge; 


:= m eng + C c h 3 


Abb. 1.4.3-2 Programm 
für Mengenlehre 
mit Mengen-Befehlen 
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i t i e n g e o. u s (m e n g e 2 ) ; 

URITELN (’ - * )5 


i'i e n g e 3 : = m e n g e 1 + 
URITEt* + 5 ) j 

« enge o. u s (ft enge3) j 
ft e n g e 3 : = ft e n g e 1 * 
W RI T E (* * ’ ) 5 

ft e n geo. us (ft e n g e 3) ; 
ft enge3 := ftenge 1 - 
URITEI’ - 


ft e n g e 2 5 


ft e n g e 2 j 


ft e n g e 2 j 


ft enge o. u s (ft e n g e 3) ; 
ftenge3 := gr u n dft enge-nengelj 
WRITE ( J G-ftengel •’ ) ; 
ft e n g e o. u s ( ft e n g e 3) j 


MRITELNt» - 

IF ft e n g e 1 > = ft e n g e 2 

THEN URITELN(’Menge 1 
IF ft e n g e 1 < = ft e n g e 2 

THEN URITELN(»menge 1 
IF ft e n g e 1 = ft e n g e 2 

THEN URITELN(’Menge 1 
I F m e n g e 1 < > ft e n g e 2 

THEN URITELN( J Menge 1 
I F m e n g e 1 = [ ] 

THEN URITELN(’Menge 1 
IF m e n g e 2 = [ 3 

THEN URITELN(’ftenge2 
UNTIL {«enge 1 = CI) fl N D 
END. 


- » ) . 

e i n h a e 1 1 , m e n g e 2 * ) j 

ist in m enge2 enthalten ’) 

ist gleich m e n g e 2’); 

ist ungleich m e n g e 2’) ; 

ist leer’); 

ist leer’); 

(ft e n g e 2 = C ] ) 


Sorcift PflSCRL/M ver 03.85/03.85 

Menge a..z . =sto P :a. zuAbb. 1 . 4 . 3-2 

Menge o...z .=stop:abcd. 

Menge . - 

m e n g e 1 a 
ft e n g e 2 a b c d 


+ a b c d 

* a 

G-ftengel b c d e f g hiJ k1nn 0 p q r s t u vw x y z 
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m enge 1 ist in m e n g e 2 enthalten 
Mengel ist ungleich Menge 2 
Menge a..z .= s t o p:a b c d. 

Menge a. . z . = s t o p '• b. 

Menge . - 

Mengel abcd 
m e n g e 2 b 


+ a b c d 

* b 

i cd 

G-Mengel ef ghij k1 m nopqrst uuwxyz 


m enge1 einhaelt m enge2 
m e n g e 1 ist u n g 1 eich ne n ge 2 
Menge a ..z .= s t o p: m eie r. 

Menge a ..z .= st o p: m u e 11 e r . 

Menge . - 

m e n g e 1 e i m r 

m e n g e 2 e 1 m r u 


+ e i 1 m r u 

* e m r 

i 

G-m engelabcd f gh J k1 nopq s t u v wxyz 

_ zu Abb. 1.4.3-2 

m e n ge 1 ist ungleich m e n g e 2 
Menge a..z .=stop:Meier. 

Menge a..z . = s t o p: e i. 

Menge . - 

m e n g e 1 e i m r 

m e n g e 2 e i 


+ e i m r 

* ei 

m r 

G-nengelabcd f g h j k l nopq stuvwxyz 


m enge1 einhaelt m enge2 

m e n g e1 ist ungleich m en g e 2 

Menge a..z .= s t op:t he quick brown f o x. 

Menge a .. z .=stops jumps ov er the 1azy dog. 

Menge . - 
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rie n g e 1 bc e f hi k no qr tu wx 

m e n g e 2 a de gh j Im dp r s t u v yz 


+ abcdef gh i j k 1 m nopq rst uvwxyz 

* eh o r t u 

b c f i k n q w x 
G-nengela d g j Im p s y yz 


m e n g e 1 ist u ng1eich m enge 2 


SorciM PflSCflL/M ver 03.05/03.05 
Menge a. . z .=stop!Max und fritz Jo.gen. 
Menge a..z . = s 1 0 p:. 

Menge . - 


m e n g e 1 
m e n g e 2 

Ü. 

def g 

i j 

N n 

r 

t u 

+ 

a 

d e f g 

i j 

An 

r 

t u 

* 

a 

def g 

i j 

fln 

r 

t u 


G-Men gelbe h kl opqs vwy 


m enge1 einhaelt m enge2 
m e n g e1 ist ungleich m e n g e 2 
m e ng e 2 ist leer 

Menge a ..z .= s 1 0 p :n a x und fritz jagen kleines vie h. 
Menge a ..z .=stop:. 

Menge . - 

m enge 1 a defghijkl m n rstuu x z 

m e n g e 2 


+ a defghijklnn rstuv x z 

* 

a defghijkl m n rst uv x z 

G-Mengelbe opq wy 


m e n g e 1 einhaelt m e n g e 2 
m e n g e1 ist ungleich m e n g e 2 
m e n g e 2 ist leer 

Menge a .. z .= s t o p :m a x und fritz jagen kleines vie h obwohl. 
Menge a..z .= s 1 0 p 5. 

Menge . - 
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fleng0 1 ab d e f gh i J k 1 a n0 rstu0 wx z 
a e n g e 2 


+ ab defghijklfln0 rstuywx z 

* 

ab def gh i j k 1 fln0 rst uvux z 
G - fl e n g e 1 c P q y 


fl 0 n g 0 1 0 i n h a 0 11 a 0 n g 0 2 
fl 0 ng e 1 ist ung 1 0 i ch a 0 ng 0 2 
a 0 ng0 2 ist leer 
M 0 n g 0 a ■ . z . = s t o p s . 

Menge a . . z .= s 1 0 p:. 

fl 0 n g 0 • - zu Abb. 1.4.3-2 

fl 0 n g 0 1 
fl 0 n g 0 2 


+ 

* 

G-a engelabcdefghi Jk 1 a no p q r s tuvwx yz 


fl0ng0 1 einhaelt fl0ng0 2 
fl 0 n g0 1 ist in fl 0 ng 0 2 enthalt 0 n 
fl 0 ng 0 1 ist g 1 0ic h a eng ©2 
a 0 ng 0 1 ist 1 0 e r 
a e n g 0 2 ist leer 


Zu IN noch ein paar Worte. Damit ist es 
möglich zu prüfen, ob ein bestimmtes 
Element in einer menge enthalten ist. 
Beispiel: 

cpu IN z80 ergibt den Wert FALSE 
io IN [ram,rom,io,cpu] 
ergibt TRUE 
alu IN z80 ergibt TRUE 
Falls z80 = [alu,buffer,pc] z. B. 

Intern werden die Mengenvariablen 
meist als Bitmap geführt. Das heißt für 
jedes mögliche element einer Menge ist 
mindestens ein Bit-Speicherplatz reser¬ 
viert. Wird das Element einer Menge zu¬ 
gewiesen, so wird das dazugehörige Bit 
gesetzt. 


Abb. 1 . 4 . 3-1 zeigt ein Beispiel für das 
Arbeiten mit den Mengen-Befehlen. Es 
wird die Aufgabe gestellt, den Unter¬ 
richt in einer Klasse einzuteilen. Es gibt 
drei Lehrer: Anton, Müller und Schulze. 
Dann gibt es noch drei Fächer: Deutsch, 
Mathe und Englisch, die unterrichtet 
werden müssen. Jeder Lehrer kann nun 
bestimmte Fächer unterrichten. 

Anton unterrichtet Mathe und Eng¬ 
lisch, Müller Deutsch und Englisch und 
Schulze alle drei Fächer. Das Programm 
soll nun bei der Eingabe von Lehrern 
entscheiden, ob eine Klasse mit den an¬ 
gegebenen Fächern auch in allen drei 
Fächern unterrichtet werden kann 
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Abb. 1 . 4 . 3-2 zeigt noch ein anderes 
Programm zur Mengenlehre. Als Ele¬ 
mente können Werte von ’a’ bis ’z’ einge¬ 
geben werden. Es werden zwei Mengen 
eingegeben und dann die verschiede¬ 
nen Verknüpfungen ausgeführt. Vielen 
ist vielleicht der Satz „THE QUICK 
BROWN FOX JUMPS OVER THE LAZY 
DOG“ bekannt. Er hat die besondere ei- 
genschaft alle Buchstaben des Alpha¬ 
bets zu enthalten. Zur Überprüfung ist 
dieser Satz auch einmal in unser Pro¬ 
gramm als Menge eingegeben worden. 
Nun läßt sich mit dem Programm auch 
ein solcher Satz finden. Es wird ein Satz 
immer um ein Wort ergänzt, bis die ein¬ 
gegebene Menge mit der Grundmenge 
übereinstimmt. Als Beispiel wurde hier 
ein Satz „MAX UND FRITZ JAGEN 
KLEINES VIEH OBWOHL“ gefunden, 
bei dem nur noch die Buchstaben „C P 
QY“ fehlen. 

Vielleicht findet der Leser einen pas¬ 
senden Schluß dieses Satzes mit den 
fehlenden Buchstaben... 


1.5 Strukturierte Typen 

1.5.1 Felder 

Bisher hatten wir nur Variable mit einer 
Komponenten definieren können. Neh¬ 
men wir einmal an, es ist Aufgabe 20 
Werte einzulesen, danach eine Kurve 
der Werte auszugeben und noch ein 
paar Berechnungen mit den Werten 
durchzuführen. Dann wäre es sehr um¬ 
ständlich für jeden einzulesenden Wert, 
eine andere Variable verwenden zu 
müssen. Immer wenn mehrere Werte 
von einem Typ vorhanden sein sollen, 
ist es angebracht, ein Feld zu verwen¬ 
den. Über einen Index kann dann eine 
Komponente des Feldes angesprochen 
werden. Beispiel: 


VAR 

werte : ARRAY [l .. 20] OF REAL; 
Es wird ein Feld des Namens „werte“ de¬ 
finiert, das 20 Komponenten des Typs 
REAL umfaßt. Der Zugriff auf ein Ele¬ 
ment erfolgt dann z. B. wie folgt: 

werte[3] 

Hier wird das dritte Element ange¬ 
sprochen. Zuweisungen sind dann wie 
gewohnt ausführbar. Abb. 1.5.1-1 zeigt 
ein Beispiel für die Handhabung mit ei¬ 
nem Feld. Als Index kann auch eine Va¬ 
riable stehen, die mit dem Typ bei der 
Bereichsdefinition ([l.. 20]) überein¬ 
stimmen muß. Dabei sind nur skalare 
Typen, also z. B. nicht etwa REAL, zuge¬ 
lassen. Eine Möglichkeit wäre z. B. auch: 

TYPE 

preise = ( dm , dollar ); 

wäre = ARRAY [ preise ] OF REAL; 

VAR 

cpu : wäre; 

Mit cpu[dm] wird die eine Komponente 
angegeben, mit cpu[dollar] die andere 
Komponente der Variablen „cpu“. Nun, 
hier wäre natürlich ein Feld mit zwei In¬ 
dizes schön, um z. B. ein Warenfeld auf¬ 
zubauen, das aus zwei Komponenten 
besteht. Auch dies ist möglich. Dafür 
gibt es zwei Wege: 

warengruppe = ARRAY [preise] 

OF ARRAY[l..500] 
OF REAL; 

oder 

warengruppe = ARRAY [preise, 
1..500] OF REAL; 

Eine Variable, die mit „warenfeld : 
warengruppe“ definiert ist, kann über 
Doppelindex adressiert werden. Also 
z.B. 

writeln(warenfeld[dm, 10]) 
gibt die lOte Komponente von „waren¬ 
feld“ mit der Bedingung „dm“ aus. Dort 
können z. B. die DM Beträge gespeichert 
sein. Die andere Komponente, die mit 
„dollar“ angesprochen wird, kann z. B. 
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PROGRRM ara(INPUT,OUTPUT); 

VOR 

feld : ARRAY [1..10] OF REAL; 
tei»ip : REAL; 
i : INTEGER; 


BEGIN 

WRITELN; 

FOR i := 1 TO 1@ DO 
BEGIN 

WRITEC’Feld C ’ 5 i , ’ 3 eingeben 
READ(f e 1 d C i 3 ) ; 

WRITELN 

END; 

t e n p : = 0; 

FOR i:=i to 10 DO terop := tenp + feldtil; 
WRITELN (’ Mittelwert ’ 1 1enp/10) 


END. 

So rc i n PflSCAL/M wer 03.05/03.05 

Feld 

m 

eingeben 

45.65 

Feld 

C 21 

eingeben 

8.3 

Feld 

C33 

eingeben 

3 

Feld 

C 41 

eingeben 

90 

Feld 

C 51 

eingeben 

100 

Feld 

[6] 

e i n g e b e n 

7 8 Abb. 1.5.1-1 Eindimensionale Felder 

Feld 

C73 

eingeben 

65.23 

Feld 

C 8 3 

eingeben 

34.2 

Feld 

C93 

eingeben 

23.45 

Feld 

CI 03 

eingeben 55.33 

M i 11 

eiwert 5.03 

1 6 0 e 1 


die US-Preise beinhalten. Abb. 1 . 5 . 1-2 
zeigt ein Beispiel für den Gebrauch des 
Doppelindex. Ein zweidimensionales 
Feld wird eingelesen und anschließend 
wieder ausgegeben. 

1.5.2 Gepackte Felder 

Wenn wir ein Feld des Typs BOOLEAN 

oder CHAR definieren, so belegt ein Ele¬ 


ment des Feldes normalerweise ein Ma¬ 
schinenwort. Es gibt in PASCAL eine 
Zusatzanweisung, die es erlaubt, derar¬ 
tige Felder weniger Speicherintensiv auf¬ 
zubauen. Dazu wird das Wort PACKED 
verwendet. Beispiel: 

VAR 

bitmap : PACKED ARRAY[l..40] 
OF BOOLEAN; 
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PRÜGRflM ara(INPUT,OUTPUT)5 
TYPE 

i n d e x = 1. . 3; 


feld : flRRflY Cindex,index3 OF INTEGER 
i, j : i n d e x j 


BEGIN 

uriteln; 

URITELNC’Eingabe des Feldes’); 

FOR i:=1 TO 3 DO 
FÜR js=l TO 3 DO 
BEGIN 

URITEC' f eldt» , i, » , ’ , j , * ] : » ) 5 
REflO(feldCi,j]) 

END; 

URITELN; 

FOR i:=1 TO 3 DO 
BEGIN 

FOR j:=i TO 3 DO 

WRITEtfeldCijj] > •' »); 

URITELN 

END 

END. 


S o r c i im PASCAL/ M u e r 


Eingabe d 
f e 1 d C1, 1 ] 
feld CI,21 
feldCI,33 
feld C2, 13 
feld C2,23 
feld C 2,3 3 
feld C3, 13 
feldC3,23 
feldC3,33 


es Feldes 

: 1 

■ 

• O 

■ •J 


4 



03.05/03.05 


Abb. 1.5.1-2 Zweidimensionale Felder 


1 2 3 
4 5 6 
7 3 9 
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Die Variable „bitmap“ ist nun ein solch 
gepacktes Feld. Der Nachteil von sol¬ 
chen Feldern ist eine durchschnittlich 
längere Ausführungszeit, da die einzel¬ 
ne Komponente des Feldes erst berech¬ 
net werden muß. Der Vorteil ist ein ge¬ 
ringerer Speicherbedarf. Wurde das 
Feld „bitmap“ z. B. nicht gepackt, so be¬ 
legt es 40 Maschinenworte. Nimmt man 
eine 16-Bit-Maschine, so wird beim ge¬ 
packten Feld nur ein Platz von drei Wor¬ 
ten in Anspruch genommen. Um zu 
schnellen Berechnungen ein solches 
Feld, in ein anderes, nichtgepacktes und 
umgekehrt kopieren zu können, gibt es 
im Standard PASCAL die Befehle PACK 
und UNPACK. 

PACK(nichtpack,displacement, 

packfeld); 

UNPACK(packfeld,nichtpackfeld, 

displacement); 

Dabei gilt wenn: 

packfeld : PACKED ARRAY 
[u.. v] OF t 

und 

nichtpackfeld : ARRAY [m..n] OF t 
PACK(n,d,p) ist 
FOR j: = u TO v DO 
p[j]:=n[j—u+d] 

UNPACK(p,n,d,) ist 
FOR j : = u TO v DO 
n[j —u+d] : = p[j] 

Bei vielen Mikrorechner-Implementa¬ 
tionen ist PACK und UNPACK nicht ver¬ 
fügbar. 


1.5.3 Zeichenketten 
In der WRITE-Anweisung hatten wir 
schon Zeichenketten (Strings) verwen¬ 
det. Es gibt aber auch noch andere Mög¬ 
lichkeiten: 

CONST 

meldung = ’Bitte Dateneingabe—)’; 


Es wird die Konstante „meldung“ defi¬ 
niert. Eine Anweisung: 

WRITE (meldung); 
gibt z. B. diesen Text aus. 

Um Stringvariable zu definieren muß 
ein Feld verwendet werden. Dies ge¬ 
schieht dann wie folgt: 

VAR 

String : PACKED ARRAY 

[1..80] OF CHAR; 

„string“ wird hier als gepacktes Feld de¬ 
finiert, um eine Reihe von Vergleichs¬ 
operationen zu ermöglichen, die nur auf 
gepackte Felder des Typs CHAR an¬ 
wendbar sind. Der Stringvariablen kön¬ 
nen nun auch Texte direkt zugewiesen 
werden, jedoch muß die Länge exakt mit 
der Länge des Feldes übereinstimmen. 
Beispiel: 

VAR 

stringl : PACKED ARRAY 

[1..6] OF CHAR; 

Dann ist es möglich zu schreiben: 

stringl := Text ’ 

Natürlich kann nach wie vor auch über 
einen Index auf Komponenten des Fel¬ 
des zugegriffen werden. 

Wie schon gesagt, sind auch Verglei¬ 
che möglich. Dabei müssen die zu ver¬ 
gleichenden Felder erstens vom glei¬ 
chen Typ sein, also gleiche Länge besit¬ 
zen und außerdem auch gepackt darge¬ 
stellt werden. Abb. 1 . 5 . 3-1 zeigt ein Pro¬ 
grammbeispiel dazu. Das Einlesen der 
Strings geschieht über ein Unterpro¬ 
gramm mit dem Namen „lesein“, da es 
nicht möglich ist, READ(stringl) zu 
schreiben. 


1.5.4 Datensätze (Records) 

Records sind ebenfalls strukturierte Da¬ 
tentypen. Ein Record besteht aus meh¬ 
reren Komponenten, ähnlich wie bei 
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PROGRflM straraUNPUT,OUTPUT); 


CONST 

neldung = * S t rin g s , > 

TYPE 

karte = PflCKED RRRfiY CI..80] OF CHflR; 
neldvar = PflCKED ARRAY CI..63 OF CHflR; 

VflR 

feldl *fel-d2 : karte; 
strzuw : m e 1 d o a r; 

PROCEDURE leseintVAR str : karte); 

VflR 

i : INTEGER; 
ch : CHflR; 

BEGIN 

FOR i:=l TO 80 DO strCi] := J 9 ; 
i: = l; 

REPEflT 

READ (ch); 
strCi] != ch; 
i : = i + 1; 

UNTIL EOLN OR (i=81); Abb. 1.5.3-1 String-Felder 

uriteln; 

end; 


BEGIN 

URITELN; 

URITELN (Meldung); 
strzuw := ’STRING’; 

URITELN(st rzuw); 

URITE( J stringl eingeben 5 ) ; 
lesein(feldl); 

URITE(’string2 eingeben J ); 
lesein(feld2); 

URITELN; 

URITELN(feldl); 

URITELN(feld2); 

IF feldl < f e 1 d2 THEN URI TELN ( 5 st r i ng 1 vor string2M; 

IF feldl > f e 1 d2 THEN UR I TELN ( 5 s t r i ng2 vor stringlM; 

IF feldl = f e 1 d2 THEN UR I TELN ( J G1 e i che Strings Mi 

END. 


S o r c i m 
St rings 
STRING 

PflSCflL/M 

ver 03 

.05/03.05 

So rc i m 

Strings 

STRING 

PASCAL/M 

uer 03.05/03.05 

st ring 1 

eingeben 

t est 

n a m e 1 

st ring1 

e i n g e b e n 

gleich 

s t r i n g 2 

eingeben 

t est 

n a m e 2 

s t r i n g 2 

eingeben 

gleich 


t est 

n a m e 1 

gleich 

t est 

n a m e 2 

gleich 

st ring1 vor st ring2 

Gleiche Strings 


1.5 Strukturierte Typen 


PROGRAM rec(INPUT,OUTPUT); 

TYPE 

bauteil = 

RECORD 

nane : PACKEQ ARRAYE1..10] OF CHAR; 
nr : INTEGER; 
s t u e c k : INTEGER; 
preis : REAL 
END; 

VAR 

i c 1, i c 2 : bauteil; 

BEGIN 

writeln; 

icl.nane := ’7 4 LS 66 
i c 1. n r : = 1; 
icl.stueck := 16; 
icl.preis := 1.95; 
i c2 := icl; 

URITELN (ic2.na.ne) ; 

URITELN(ic2.nr)5 
URITELN(ic2.stueck)5 
URITELN(ic2.preis) 

END. 


Sorcim PASCRL/M ver 03.65/03.05 
74 LS 00 
1 

10 

1.0500080 


Abb. 1.5.4-1 
Datensätze (Records) 


den Feldern. Im Gegensatz zu den Fel¬ 
dern, müssen jedoch die einzelnen 
Komponenten eines Records nicht vom 
selben Typ (REAL, INTEGER...) sein. 
Die Komponenten werden auch nicht 
über einen numerischen Index ange¬ 
sprochen, sondern durch einen symbo¬ 
lischen Namen. Records werden bei der 
TYPE-Definition angegeben. 


Beispiel: 

TYPE 
bauteil = 

RECORD 

anzahl : INTEGER; 
preis : REAL 
END; 

Es wird damit der Typ „bauteil“ defi¬ 
niert. Eine Variable, die von diesem Typ 
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ist, besitzt zwei Komponenten 
Beispiel: 

VAR 

ic : bauteil; 

Die Variable „ic“ besitzt eine Kompo¬ 
nente, die mit „anzahl“ bezeichnet wur¬ 
de und eine INTEGER-zahl aufnehmen 
kann, und aus einer Komponenten 
„preis“, die eine REAL-Zahl beinhaltet. 
Der Zugriff auf die Komponenten erfolgt 
durch Angabe des Komponentenna¬ 
mens, der dem Namen der Variablen 
durch einen Punkt getrennt, nachge¬ 
stellt wird. 

Mit „ic.anzahl“ ist die erste Kompo¬ 
nente erreichbar, mit „ic.preis“ die zwei¬ 
te Komponente der Variablen „ic“. 

Abb. 1.5.4-1 zeigt ein kurzes Programm, 
das von der RECORD-Definition Ge¬ 
brauch macht. Es zeigt, wie Zuweisun¬ 
gen und Ausgaben mit Records möglich 
sind. 

Interessant wird die anwendung von 
Records bei der zusätzlichen Verwen¬ 
dung von Feldern. Es ist möglich, ein 
Feld zu vereinbaren, das aus Kompo¬ 
nenten besteht, die aus Records beste¬ 
hen. Ebenfalls können innerhalb von 
Records wieder Felder oder Records 
verwendet werden. Damit kann man 
recht komplexe Strukturen definieren. 
Wird in einem kurzen Programmstück 
dieselbe Recordvariable verwendet, so 
kann mit Hilfe der WITH-Anweisung 
die Schreibweise vereinfacht werden. 
Es ist dann möglich, die Komponenten 
einer Variablen nur durch Angabe der 
Komponentennamen zu erreichen. 
Beispiel: 

WITH ic DO 
anzahl := 2; 
ist gleichwertig zu: 
ic.anzahl:— 2; 

Dabei kann nach dem Wort DO ein 
Block folgen. Der Vorteil ist erst bei kom¬ 


plexeren Strukturen sichtbar, doch soll¬ 
te man sich vor einer zu häufigen Ver¬ 
wendung hüten, da Programme durch 
Verwendung der WITH-Anweisung 
auch unübersichtlich werden können. 

Abb. 1.5.4-2 zeigt ein Beispiel für eine 
Lagerverwaltung. Das Lager soll ver¬ 
schiedene Bauteile (hier maximal 10) 
aufnehmen. Jedes Bauteil hat einen Na¬ 
men und einen Preis. Ferner ist eine be¬ 
stimmte Anzahl von dem jeweiligen 
Bauteil vorhanden. 

Nach Start des Programms wird ein 
Menü ausgegeben. Es können dann ver¬ 
schiedene Befehle gegeben werden. Der 
Lagerbestand kann mit dem Befehl „1“ 
ausgegeben werden. Dann kann ein 
Bauteil mit dem Befehl „e“ eingegeben 
werden. Ferner kann die Lagerbestands¬ 
summe mit dem Befehl „s“ angezeigt 
werden. Mit „f“ wird der Programmlauf 
beendet. 

Um exakte Werte bei der Rechnung 
mit Preisen zu erhalten, wurde hier 
nicht die REAL-Darstellung verwendet, 
sondern ein neuer Typ mit dem Namen 
„spezreal“ definiert. Dieser kann eine 
Zahl aufnehmen, die in einen ganzen 
und gebrochenen Teil geteilt ist. Dabei 
werden diese beiden Teile mit INTE- 
GER-Größen dargestellt. Ein weiterer 
Aspekt bei Records sind die sogenann¬ 
ten Variantrecords. Wir hatten bisher 
für jede Komponente genau einen Spei¬ 
cherplatz belegt. Es ist aber auch mög¬ 
lich, verschiedene Typen in einem Ge¬ 
biet unterzubringen. In Abhängigkeit 
von einem anzugebenden Begriff wird 
dann der Inhalt einer Speicherzelle un¬ 
terschiedlich interpretiert. Zur Defini¬ 
tion von Variant-Typen wird die CASE- 
Anweisung verwendet, die hier jedoch 
eine andere Bedeutung besitzt, als wir 
es bisher gewohnt waren. 
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PROGRflM iager(INPUT,OUTPUT)5 


TYPE 

spezreal = 

RECORD 

ganz : INTEGER; 

gebr : INTEGER <d«, pf> 

END; 

b a u t e i 1 = 

RECORD 

nane : PfiCKED RRRflY C1..10] OF CHflR; 
stueck : INTEGER; 
preis : spezreal 
END; 

bestand = RRRflY CI..183 OF bauteil; 

V fl R 

teile : bestand; 
c h1 : CHflR; 
t, J s p e z r e a 1; 
i : INTEGER; 

Abb.l.5.4-2 

PROCEDURE getpreis (VflR t s spezreal); Lagerverwaltung 

y pl p mit Records 

ch : CHflR; 
i : INTEGER; 

E* E GIN < lesen f o r n a t x x. x x oder x x > 
t.ganz s = O; 
t,. g e b r : = O; 

REPEflT 

READ ich) ; 

IF ch IN [’8» .. > 9’3 THEN 

t . g a n z s = t. g a n z * 1 O + 0 R D ( c h ) - 0 R D ( f 0 ’ ) 

UNTIL NOT ich IN C»0’ .. J 9»3); 

IF ch = '.» THEN 
EEG IN 

READ(ch)5 

IF ch IN C J 0» .. 5 9»3 THEN 

BEGIN 

t.gebr := 1O*(ORD(ch)-ORD( 5 0 5 )); 

READ (ch); 

IF ch IN C J 0 J .. J 9’3 THEN 

t.gebr : = t.gebr + 0 R 0 ( c h ) - 0 R 0 (’ 0 •" ) 

END 
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END; 

URITELN 

END; 

PROCEDURE auspreisft : spezreal); 
BEGIN 

WRITE(t.ganz, 5 . 5 ); 

IF t.gebr<=9 

THEN WRITE( 5 0*,t.gebr) 
ELSE WRITE(t.gebr) 

END; 


PROCEDURE listelteil : bestand); 

VflR 

i : INTEGER; 

BEGIN 

WRITELNf’index nane anz 

FÜR i:=1 TO 10 DO 
WITH teilCil DO 
BEGIN 

WRITE(i:5,» 5 ,nane, 5 


auspreis(preis); 
WRITELN 
END; 

END; 

PROCEDURE c1r(VflR teil s bestand); 
VflR 

i : INTEGER; 

BEGIN 

FOR i:=1 TO 10 DO 
WITH teil[i] DO 
BEGIN 

na«e := ’ ’ ; 

stueck!=@; 
preis.ganz := 0; 
preis.gebr := 0 

END 

END; 

PROCEDURE einlesIVAR teil '• best a n d ; 
VflR 

j : INTEGER; 
ch : CHflR; 


preis 5 ); 


,s t u e c k:3, 5 5 ) 


zu Abb. 1 . 5.4-2 


: INTEGER); 
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BEGIN 

WITH teil Ci] DO 
BEGIN 

URITE ( 5 nane: 5 ) ; 
o := l; 

REPEflT 

REflD(ch)? 
n a m e C ö 1 : = c h j 
j := J + 1 

UNTIL EOLN DR (J = 11) ; 

WRITE( 5 Stueckzahl:’) ; 

REflDLN(stueck)5 
URITE(»Preis:’); 
getpreis(preis) 

END 

END; 

P R 0 C E D U R E s u m « e { teil : b e s t o. n cf j V fl R s u « : 
VflR 

i,J : INTEGER; 

BEGIN 

s u n.ganz := @; 
s u n. g e b r : = 9; 

FÜR i:=1 TO 18 DO 
UI TH teil Ci] DO 

FOR J:=1 TO stueck DO 
BEGIN 

sui’i. gebr : = sun. gebr + 
IF sun.gebr >=100 THEN 
BEGIN 

s u i v i . g e b r '• = s u n. 
s u i'i. g a n z : = s u pi . 
END; 

su i v i. ganz := su«. ganz + 

END 

END; 

BEGIN 

URITELN; 
clr(teile); 

URITELN (’Lag e rha11 ung ’) ; 

REPEflT 

URITELN(»1 = listen’); 

URITELN t’e = einiesen’); 


zu Abb. 1.5.4-2 


spezreal); 


preis.g e b r 

gebr -100; 
ganz + 1 

preis.g anz 
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END 


URITELNf’s = bestandssunne’); 

WRITELN (•' f = final ’ ) j 

URITE (»-> J ) 5 

READ(chl)5 
URITELN; 

IF chl IN C»1 *,’e’, 5 s*] THEN 
CfiSE chl OF 

’1’5 liste(teile); 

’s’: 6EG IN 

s u m n e (t e i 1 e»t) j 

URITELNt’Sunne: 11 it.ganz« ’ . ’ f t.gebr, ’ DM’ 
END; 

J e J : BEGIN 

URITE(»Index: »); 

READ (i); 
e i n 1 e s (t e i 1 e, i) 

END 

5 f > 

zu Abb. 1.5.4-2 


END; 

UNTIL chl = 


So rein PflSCflL/M ver 03. 

.05/03.05 

1 = listen 



Lagerhaltung 



e = einiesen 



1 = listen 



s = bestandssunne 



e = einiesen 



f = final 



s = bestandssunne 



-> e 



f = final 



Index: 2 



-> 1 



n a n e: z 8 0 



index nane 

anz 

preis 

Stueckzahli2 



1 

0 

0.00 

Preis:29.90 



2 

0 

0.00 

1 = listen 



3 

0 

0.00 

e = einiesen 



4 

0 

0.00 

s = b e s t a n d s s u n n e 



5 

0 

0.00 

f = final 



6 

0 

0.00 

-> 1 



7 

0 

0.00 

index nane 

anz 

preis 

8 

0 

0.00 

1 7400 

12 

0.45 

9 

0 

0.00 

2 z80 

2 

29.90 

10 

0 

0.00 

3 

0 

0.0 0 

1 = listen 



4 

0 

0.00 

e = ei niesen 



5 

0 

0.00 

s = bestandssunroe 



6 

0 

0.00 

f = final 



7 

0 

0.00 

-> e 



8 

0 

0.00 

Index! 1 



9 

0 

0.00 

n a n e: 7 4 0 0 



10 

0 

0.00 


Stueckzahl:12 
Preiss0.45 
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1 = listen 

index narce 

a n z 

preis 

e = einiesen 

1 7400 

12 

0.45 

s = bestandssunne 

2 z80 

2 

29.90 

f = final 

3 7403 

34 

0.67 

-> s 

4 

0 

0.00 

Sunne:65.20 DM 

5 

0 

0.00 

1 = listen 

6 

0 

0.00 

e = ein1esen 

7 

0 

0.00 

s = bestandssunne 

8 

0 

0.00 

f = final 

9 

0 

0.00 

-> e 

10 

0 

0.00 

Index: 3 

1 = listen 




! 34 


nane: 7403 
Stueckzahl: 
Preis:0.67 
1 = listen 
e = einiesen 

= bestandssimne 
final 
-->1 


s 
f = 


zu Abb. 
1.5.4-2 


e = einiesen 
s = bestandssunne 
f = final 

-> s 

Sunne:87.98 DM 
1 = listen 
e = einiesen 
s = bestandssunne 
f = final 
->f 


PROGRflM variant(INPUT,OUTPUT); 


TYPE 

a u 11 i = (int,re,ch); 


i n t r e c h = 

RECORD 

C fl S E f o r fl : n u 11 i 0 F 

int : (i n t v o. 1 : INTEGER); 

re : ( r e a 1 v a 1 '• REAL); 
c h J (c h a r v a 1 : C H fl R) 

END; 

VAR 

n u 11 i 1 : i n t r e c h; 


BEGIN 

URITELN; 

nultil.forn := int; 
nultil.intval ‘- 16; 
URITELN(nulti1.intval ) 5 
nultil.forn := ch; 

N u 11 i 1. c h a r v a 1 : = ’ * 5 ; 
URITELN(nulti1.charval); 
URITELN(nult i1.intval) 
END. 


Abb. 1.5.4-3 Variant-Records 


Sorcifl PflSCfiL/M ve r 03.65/03.05 
10 
* 

42 


73 







1 PASCAL 


Beispiel: 

TYPE 

entscheidung = (erste,zweite); 
doppel = 

RECORD 

CASE welche : 
entscheidung OF 
erste: 

(namel : INTEGER); 
zweite: 

(name2 : REAL) 

END; 

Die Komponente „welche“ von „doppel“ 
gibt an, welches Teilfeld in der CASE- 
Anweisung gültig ist. Es wird dabei auch 
durch die Namen „namel“ und „name2“ 
bestimmt. Variablen, die vom Typ „dop¬ 


pel“ sind, belegen nur den Speicher¬ 
platz der Komponente „welche“ und 
den Speicherplatz einer der beiden 
Komponenten „namel“ oder „name2“. 
Belegt „name2“ z. B. mehr Platz als „na¬ 
mel“, so wird der Platz für „name2“ ver¬ 
wendet. 

Abb. 1.5.4-3 zeigt ein Beispiel für den 
Gebrauch dieser Konstruktion. 

Eine Variant-Definition kann auch oh¬ 
ne Angabe einer eigenen Komponenten 
für die Komponentenauswahl angege¬ 
ben werden. Abb. 1.5.4-4 zeigt ein Bei¬ 
spiel dazu. Der Zugriff erfolgt hier aus¬ 
schließlich durch Angabe des Kompo¬ 
nentennamens. 


PRÜGRflM oariani (INPUT,OUTPUT); 

TYPE 

n eh r f a c h = (int? re); 
i n t r e = 

RECORD 

C fl S E n e h r f a c h 0 F 

int : (i n t v a1 2 INTEGER); 

re : ( rea1va1 s REAL) 

END; 


V fl R 

dop 5 int re; 


BEGIN 

dop.intval 2 = 18; 
I4RITELN; 

NRITELNfdop. intva1)5 
d o p . r e o. 1 o a 1 2 = 18; 

URITELN (dop. realval) 
END. 


Abb. 1.5.4-4 

Variant-Records weiteres Beispiel 


Sorci m PflSCRL/M ve r 03.85/03.85 
18 

1.0 0 0 0 0 e 1 
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Die Verwendung dieser Variantstruk- 
turen ist außerordentlich vielseitig, sie 
sollte jedoch nicht für Programmier¬ 
tricks verwendet werden, wie dies in un¬ 
serem Beispiel geschieht. Durch Ausga¬ 
be der Komponente „multil.intval“ in 
Abb. 1.5.4-3, wird ein Wert ausgegeben, 
der zuvor mit einer CHAR-Größe belegt 
wurde. Dies funktioniert nicht auf allen 
Rechnern gleich und ist daher nach 
Möglichkeit zu unterlassen. Sinnvoll ist 
die Anwendung der Variantstrukturen 
zum Einsparen von Speicherplatz in 
Fällen, wo für eine Variable eine Alter¬ 
native in der internen Struktur besteht. 
Z. B. eine Variable, die eine grafische Fi¬ 
gur darstellen soll. Die Figur soll dabei 
von unterschiedlichem Typ sein, z. B. 
einmal ein Rechteck, durch Angabe der 
beiden Seiten, zum anderen ein Kreis, 
wobei Mittelpunkt und Radius angege¬ 
ben wird. Dann ließe sich folgende 
Struktur definieren: 

TYPE 

fall = (rechteck, kreis); 

figure = 

RECORD 

CASE welcher : fall OF 
rechteck: (hoehe: REAL; 

breite: REAL); 
kreis: (mittex: REAL; 
mittey: REAL; 
radius: REAL) 

END; 

vielfigur = ARRAY [ 1.. 100] OF 
figure; 

Mit 

VAR 

Speicher : vielfigur; 

wird ein Feld definiert, dessen Kompo¬ 
nenten von dem Type „figure“ sind. Hier 
kommt der Vorteil zum Ausdruck. Durch 
die Verwendung der Variant-Struktur ist 
ein viel klarerer Programmaufbau mög¬ 
lich. 


1.6 Dynamische Datenstrukturen 

Bisher hatten wir nur statische Struktu¬ 
ren betrachtet. Der Speicherplatz für Va¬ 
riablen war fest reserviert. Auch Feld¬ 
grenzen mußten vor der Ausführung 
feststehen. Bei manchen Aufgaben ist es 
aber bei der Programmerstellung nicht 
klar, wieviel Platz später bei der Ausfüh¬ 
rung reserviert werden muß. Der Platz 
kann erst bei der Ausführung des Pro¬ 
gramms festgelegt werden. In PASCAL 
ist es nicht möglich, Feldgrenzen mit Va¬ 
riablen anzugeben, die z. B. nach dem 
Einlesen über eine READ-Anweisung 
belegt werden. Feldgrenzen müssem im¬ 
mer Konstanten sein. Für die dynami¬ 
schen Strukturen stehen andere Hilfs¬ 
mittel zur Verfügung. 


1.6.1 Zeiger 

Zur Realisierung von dynamischen 
Strukturen werden in PASCAL Zeiger 
verwendet. Ein Zeiger, oder auch Poin¬ 
ter genannt, ist ein Typ wie INTEGER 
oder REAL. Die Deklaration eines Poin¬ 
tertyps erfolgt dabei so: 

TYPE 

zeiger = tobjekt 

Der Typ „zeiger“ ist dabei ein Pointer auf 
„objekt“. „objekt“ muß dann noch defi¬ 
niert werden. Dabei erfolgt hier aus¬ 
nahmsweise die Definition nach dem 
Aufruf. Dies ist nötig, um auch rekursive 
Strukturen zu ermöglichen. 

Für „objekt“ kann z. B. gelten: 
objekt = INTEGER; 

Wird mit 
VAR 

zeige : zeiger; 

die Variable „zeige“ definiert, so kann sie 
auf einen INTEGER Platz zeigen, da „ob¬ 
jekt“ vom Typ INTEGER ist. 

Soll auf ein „objekt“ zugegriffen werden, 
so wird dies durch Anfügen des Zei¬ 
chens t angegeben. 
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PROGRAM po int. er (INPUT, OUTPUT ) ; 

TYPE 

zeiger = t o b .j e k t; 

obJekt = PACKEÜ flRRHYCl..6] OF CHAR; 


V fl R 

z e i 1, z e i 2 : z e i g e r j 

BEGIN 

URITELN; 

NEW (zei 1); 
zeilt := »NANE1 *; 

NEW (zei2); 
z e i 2 T := ’ N fl M E 2 5 5 
URITELN(zeilt); 

W R I T E L N ( z e i 21) ; 
zeilt := z ei21; 

WRITELN(zeilt); 

URITELN(zei2t); 

zeilt : = ’ T E S T 1 2 ’ 5 Abb. Zei 8 er 

zei2 := zeilj 

WRITELN(zei2t); 

zeilt := •’ZUW1 

WRITELN(z ei21) 

END. 


Sor ci« PASCAL/M uer 03.05/03.05 

NflMEl 

NAME 2 

NAME2 

NAME 2 

TEST 12 

ZU Ul 


Mit 

zeiget 

kann auf den Inhalt von „objekt“ zuge¬ 
griffen werden. 

Es müssen nun noch derartige Objek¬ 
te kreiert werden, so daß es dann mög¬ 
lich ist, damit zu arbeiten. Dazu gibt es 
die Prozedur NEW(p). Sie erzeugt Platz 
für ein Objekt von dem Typ, der für „p“ 


zugelassen ist. Die Variable „p“ muß da¬ 
bei ein Pointer sein. Der Pointer zeigt 
dann sofort auf das erzeugte Objekt. 
Dies geschieht zur Laufzeit des Pro¬ 
gramms, aus der sich dynamische Struk¬ 
turen ergeben. Abb. 1.6.1-1 zeigt ein kur¬ 
zes Beispiel für den Gebrauch von Poin¬ 
tern. Vor der Ausführung des ersten Be¬ 
fehls gibt es zwei Pointer, wie sie in Abb. 
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1 . 6 . 1 - 2 dargestellt sind. Dann werden mit 
NEW(zeil) und NEW(zei2) zwei neue 
Objekte kreiert. Ihnen werden dabei 
auch Werte zugewiesen. Die Situation 
zeigt Abb. 1.6.1-3. Mit der Zuweisung 
„zeilt: = zei2t“ wird an das erste Objekt 
der Wert „NAME2“ zugewiesen. Abb. 

1.6.1- 4 zeigt die Objekte. Mit der An¬ 
weisung „zei2 :=zeil“ wird das Verhält¬ 
nis in Abb. 1.6.1-5 erreicht. Auf das zwei¬ 
te Objekt gibt es keinen Verweis mehr, 
es ist also nicht mehr erreichbar. Im 
Standard-PASCAL gibt es eine Möglich¬ 
keit, derartige belegte Speicherplätze 
wieder zurückzugewinnen. Dies ge¬ 
schieht mit dem Befehl DISPOSE(poin- 
ter). Dazu muß der Befehl aber vor der 
Zuweisung an „zei2“ ausgeführt wer¬ 
den. Also z. B.: 

DISPOSE(zei2); 

zei2 :=zeil; 

DISPOSE ist aber bei den wenigsten Mi- 
kroprozessor-PASCAL-Systemen reali¬ 
siert. Dort gibt es andere Befehle, die 
ähnlich wirken (siehe Kapitel 2 ff). 


1.6.2 Lisienstrukturen 
Die Art, wie im vorherigen Abschnitt 
Pointer gebraucht wurden, ist noch 
nicht ganz sinnvoll. Denn für jedes Ob¬ 
jekt haben wir einen eigenen Pointer 
verbraucht. Sinnvoll wird die Verwen¬ 
dung von Pointern zum Beispiel beim 
Aufbau einer Listenstruktur. Dabei ent¬ 
hält ein Objekt mehrere Komponenten, 
mit einer Komponenten die wieder ein 
Pointer-Typ ist. Diese Komponente kann 
dann auf ein weiteres Objekt zeigen, 
dessen Pointer wieder auf ein weiteres 
Objekt zeigt und so fort. Es wird nun nur 
noch ein Pointer benötigt, der auf den 
Start dieser Liste zeigt. Alle Elemente 
der Liste sind von da aus erreichbar. 
Abb. 1 . 6 . 2-1 zeigt ein Beispiel für den 
Aufbau einer Listenstruktur. Das Objekt 


Zei 1 


Abb. 1.6.1-2 
Ausgangssituation 



Abb. 1.6.1-3 Nach den NEW-Anweisungen 
Zei 1 



Abb. 1.6.1-4 Zuweisung nach Inhalt 
Zei 1 




TEST 12 



Zei 2 







NAME 2 




Abb. 1.6.1-5 Zuweisung von Zeigern 

besteht aus zwei Elementen. Einmal aus 
einem String, der aus sechs Zeichen be¬ 
steht, zum anderen aus einem Pointer, 
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PROGRRM link (I NF'IJT , OUTPUT) ; 

TYPE 

zeiger = f o bo e k t j 
o b ■ j e k t, = 

RECORD 

nachfolger : zeigerj 
daten : PflCKEO ARRAYC1..6] OF CHflRj 
END; 


VAR 

zeiljbasis : zeiger; 


BEGIN 

WRITELN; 

NEW(zei 1) ; 

zeilt.daten := * LISTEI * S 
basis := NIL; 

zeilt.nachfolger := basis; 
basis := zeil; 

N E W (z e i 1) ; {na e c h s t e r Eintrag) Abb - 1 - 6 - 2 - 1 

zeilt.daten : = ’ LISTE2 5 ; Listenstruktur 

zeilt.nachfolger ■- basis; 
basis := zeil; 

NEW(zeil) ; 

zeilt.daten := * LISTE3 f ; 
zeilt.nachfolger := basis; 
basis := zeil; 

REPEfiT 

URITELNt’Listen Ausgabe -> 5 ,z ei11.d a t e n 5 ’<-’) 
zeil := zeilt.nachfo1g e r 
UNTIL zeil = NIL 
END. 

So rein PASCAL/M ver 03.05/03.05 
Listen Ausgabe -> L IST E3 <- 
Listen Ausgabe ->LISTE2<- 
Listen Ausgabe - > L I STEH- 


der mit „nachfolger“ bezeichnet ist. Die 
Variablen „zeil“ und „basis“ sind vom 
Typ Pointer. Mit NEW(zeil) wird ein Ob¬ 
jekt erzeugt. Dann wird die Daten-Kom- 


ponente mit einem Text vorbelegt. Der 
Zeiger „basis“ wird mit dem Wert NIL 
belegt, das heißt, er zeigt auf „nichts“. 
NIL ist nicht mit 0 zu verwechseln, es 
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PROGRflM pointer(INPUT,OUTPUT)5 
TYPE 

zeigt f‘ = t obJektj Abb. 1.6.2-3 Trickprogramm 

ob-iekt = INTEGER; 

V fl R 

zeil : zeiger; 

PROCEDURE druckepointertpointer : zeiger); 

TYPE 

doppel = (pointtyp,integtyp); 
m i s c h = 

RECORD 

CfiSE doppel OF 

pointtyp : (pointerval '• zeiger); 
integtyp : (integval ’• INTEGER) 

END; 

VflR 

g e fl i s c h t : fl i s c h; 

BEGIN 

gewischt.pointerval : = p 0 int,er; 

1*1 RIT E (’ - > ’ ,gewischt, integval, ’ < - 1 ) 

END; 


BEGIN 

WRITELN; 

NEW (zei1); 
zeilt := IO; 
druckepointer(zeil) ; 
WRITELN(zei1t)5 
NEW(zei 1); 
zeilt := 28; 
druckepointer(zeil); 
WRITELN(zeilt) 

END. 



S 0 rciw PfiSCfiL/M ve r 03.05/03.05 
->11696<- 10 
->11698<- 20 
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entspricht eher einer leeren Menge. Der 
Nachfolger des ersten Wertes, der vom 
Typ Pointer ist, „basis“ wird mit dem 
Wert „zeil“ besetzt, so daß nun auf das 
Objekt, das zuvor kreiert wurde, gezeigt 
wird. Nun kann mit NEW(zeil) ein 
neues Objekt kreiert werden. Der Nach¬ 
folger dieses Objekts erhält den Wert 
von „basis“ und zeigt damit auf das zu¬ 
vor erzeugte Objekt. Nach Anlegen ei¬ 
ner solchen Liste zeigt „basis“ immer auf 
das aktuelle Element, „zeil“ zeigt am An¬ 
fang auch auf das Element. Zur Ausgabe 
der Liste wird nun in einer Schleife 
„zeil“ jeweils mit dem Nachfolger be¬ 
legt, solange, bis der Nachfolger den 
Wert NIL annimmt, also das Ende der Li¬ 
ste erreicht ist. In Abb. 1.6.2-2 ist die Si¬ 
tuation, die nach der Ausgabe besteht, 
angegeben. Der Wert von „zeil“ ist dabei 
NIL, da dies die letzte Zuweisung im 
Ausgabeprogramm war. Der Zeiger „ba¬ 
sis“ zeigt auf den Anfang (hier der letzte 
Eintrag) der Liste. Wird „basis“ auf einen 
anderen Wert gesetzt, so muß darauf 
geachtet werden, daß immer irgend ein 
Bezug auf den Anfang existiert, da sonst 
die Gefahr besteht, daß ein Element 
nicht mehr erreicht werden kann. 

Abb. 1 . 6 . 2-3 zeigt ein weiteres Beispiel 
mit Pointern. Es handelt sich dabei um 
ein Trickprogramm, das nicht angewen¬ 
det werden sollte und auch nicht an al¬ 
len Rechnern gleich arbeitet. Es ergeben 
sich auch unterschiedliche Werte. Es 
soll die absolute Adresse eines Objekts 
für Testzwecke berechnet werden. Mit 
einer Variantstruktur ist dies möglich. 
Dabei wird einmal ein Pointer definiert, 
zum anderen ein INTEGER-Typ. Wird 
dem Pointer ein Wert zugewiesen, so 
kann durch die Variantstruktur der da¬ 
zugehörige INTEGER-Wert ausgegeben 
werden. Das Beispiel arbeitet aber wie 
schon gesagt nicht auf allen Rechnern. 


1.6.3 Baumstrukturen 

Eine andere Möglichkeit Daten zu orga¬ 
nisieren ist, sie in einer Baumstruktur 
anzulegen. Eine solche Struktur kann 
mit der folgenden Definition aufgebaut 
werden: 

TYPE 

zeiger = tbaumstruktur; 
baumstruktur = 

RECORD 

links,rechts : zeiger; 
daten : datentyp 
END; 

Mit den Variablen „links“ und „rechts“ 
wird der Anschluß an weitere Objekte 
vorgenommen. Dabei dürfen zur Erzie¬ 
lung einer Baumstruktur die Pointer 
„links“ und „rechts“ immer nur auf neue 
Objekte zeigen (oder den Wert NIL be¬ 
sitzen). Tun sie das nicht, indem sie z. B. 
auf den Anfang zeigen, so ergibt sich ei¬ 
ne ring- und oder Netzstruktur. Abb. 
1 . 6 . 3-1 zeigt ein Beispielprogramm für 
die Anwendung von Baumstrukturen. 
Das Beispiel ist an ein Beispiel in [l] an¬ 
gelehnt. Aufgabe ist es, Wörter einzuge¬ 
ben und dann festzustellen, wie oft je¬ 
des Wort eingegeben wurde und das Er¬ 
gebnis ist alphabetisch sortiert auszuge¬ 
ben. Abb. 1 . 6 . 3-2 zeigt eine Beispielsein¬ 
gabe. Das Programm kann dazu verwen¬ 
det werden, die Häufigkeit von Wörtern 
in Texten festzustellen. Abb. 1 . 6 . 3-3 zeigt 
den Aufbau eines Baumes nach der Ein¬ 
gabe der Wörter: EINTRAG MIT BAEU- 
MEN ANZAHL MIT ZAEHLER GEHT. 
Eine Eingabesequenz wird mit abge¬ 
schlossen. Bei der Eingabe der Wörter 
geschieht folgendes: Zunächst wird das 
Objekt mit dem Wort EINTRAG erzeugt. 
Beim nächsten Wort wird festgestellt, ob 
es alphabetisch hinter „EINTRAG“ ge¬ 
hört und damit wird ein neues Objekt er¬ 
zeugt und der Zeiger „rechts“ von Ein¬ 
trag auf das neue Objekt mit „MIT“ ein¬ 
gestellt. Wenn ein Objekt schon mit dem 
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PROGRfiM baeune (INPUT,OUTPUT); <nach Grogono C13 > 
TYPE 

wort typ = PflCKED flRRflYC1 .. 203 OF CHflR; 


zeiger = Tstructur; 
structur = 

RECORD 

links, rechts : zeiger; 
w o r t : w o r 11 y p ; 
ar.zahl : INTEGER 

END; 

Abb. 1.6.3-1 Sortieren 

V fl R 

wort b a u n : zeiger; 
n e u w ort : w o r 11 y p ; 

mit Baumstrukturen 


PR0CE D U R E 1e s ein(V fl R einw or t : w o r11 y p) j 
VAR 

i : INTEGER; 
ch : CHflR; 

BEGIN 

FÜR i:=1 TO 20 DO einwortCil s= » ’; 


i : = 1; 

URITE {»’) 5 

READ(ch)5 

REPEfiT 

einwortCil : = c h; 
i : = i + 1; 

READ (ch); 

UNTIL EOLN OR (ch=» J ) OR ( i = 21 ) 
END; 


PROCEDURE g i bo.us (ei n w ort : w o r 11 yp ) ; 
BEGIN 

kl RI T E ( e i n w o r t ) 

END; 


P R 0C E DU RE e i nt r o. ge ( V fl R bäum : zeiger; \ 
BEGIN 

I F bau« = NIL 

THEN 

BEGIN 

N E kl ( b a u i'i ) ; 

UI TH bäumt DO 

Eintrag : w o r 11 yp) 
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BEGIN 

wort : = eint rag; 
unzahl := 1j 
links := NIL; 
rechts '■ = NIL 

END 

END 

ELSE 

UI TH baufit DO 

IF e i n t r a g < w o r t 

T H E N e i n t r o. g e (1 i n k s ? e i n t rag) 

ELSE IF ein t r a g > w ort 

T H E N eint rage(rechts» eint rag) 
ELSE anzahl := anzahl + 1 

END; 

F‘R0CEDURE druc kbaun (baun : zeiger); 

BEGIN 

IF bau m <> NIL 
THEN 

UI TH bauflt DO 


BEGIN 

d r u c k b a u fl(links); 
g i b a u s (w o r t) ; 

WRITELN (’ : J ,anzahl); 
d r u c k b a u a ( r e c h t- s) 

END 

END; 

BEGIN 

URI TELN; 

wor t b a u fl := NIL; 

REPEfiT 

1 e s e i n (n e u w o r t) ; 

URI TELN; 

I F neuwort <> ’. 

THEN eintra g e (w or tb au fl , n e u w ort) 
U N T I L n e u w o r t = ’ . 

d r u c k b a u fl (w o r t. b a u fl ) 

END. 


zu Abb. 1.6.3-1 
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So rein PASCAL/ 

- : o.na 1 y se 
-: von 

woertern 

- s in 

- : s a e t z e n 
-s n i t 

- s d i e s e ft 

-:progrann 
-: k a n n 
-: n o. n 

- sse hen 
-: ob 

-! i ft ft e r 
-: n o. n c h e 
-swoerter 
in 

-:säetzen 

- s h a e u f i g 

-:v e rwendet 
-s w e r d e n 

- s u n d 

- : n i t 

-:welcher 
-: o. n z a h 1 

- i d i e s 

-: v o r k o n n t 
-: d i e s 

- : g e s c h i e h t 
-: n i t 
-seine n 

-: P r o g r a n n 
-: d a s 
-seine n 
—:bina e r e n 

- s b o. u n 

-sverwendet 

o. n a 1 y s e 
a n z a h 1 
bau ft 

b i n a e r e n 

das 

dies 


v e r 0 3.05/03.05 

diese ft s 1 

eine ft s l 

e i n e n s 1 

g e s c h i e h t s 1 

h a e u f i g s i 

ift ft er s 1 

in s2 

k a n n s l 

ft a n s 1 

fta nche s l 

ft i t s 3 

ob s 1 

progra ft ft s 2 

s a etzen s 2 

sehen s 1 

u n d s 1 

v e r w e n d e t s 2 

v o n s 1 

v o r k o ft ft t s l 

w e 1 c h e r s l 

w erde n s 1 

w oerter : 1 

w o e r t e r n s l 


Abb. 1.6.3-2 Beispiel Sortieren von Wörtern 


Eintrag existiert, so wird der Anzahl- 
Zähler um eins erhöht. Dies geschieht 
nun, bis alle Worte eingegeben sind. Das 
Ausgabeprogramm arbeitet rekursiv. Es 
besteht aus der Sequenz: 

PROCEDURE ausgabe (baumteil: zei- 
ger); 

falls Baumteil nicht leer 
Ausgabe linker Baumteil 
Ausgabe Eintrag und Anzahl 
Ausgabe rechter Baumteil 
1 Der Aufruf „ausgabe(wortbaum)“ be- 
^ wirkt also folgendes: Es wird ausgabe 
1 (wortbaum.links) aufgerufen. Da dieser 
1 Pointer nicht leer ist, wird dann ausga- 

1 be(wortbaum.links.links) aufgerufen. 

2 Wieder ist er nicht leer. Aber „wort- 
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Abb. 1.6.3-3 Aufbau des Baums beim Programmlauf 


baum.links.links.links“ ist NIL und dann 
wird nach Rückkehr an die aufrufende 
Prozedur „Anzahl“ und 1 ausgegeben. 
Der rechte Teil ist auch leer, somit wird 
nun „BAEUMEN“ und 1 angezeigt. Der 
rechte Teil ist NIL und damit folgt „EIN¬ 
TRAG“ und 1. Nun geht es rechts weiter. 
Beim Objekt „MIT“ wird der linke Poin¬ 
ter verwendet, dann gibt es einen NIL 
Eintrag und „GEHT“ und 1 wird ausge¬ 
geben, dann wird „MIT“ und 2 ausge¬ 
druckt und schließlich „ZAEHLER“ und 
1. Die Ausgabe ist dann beendet. 

Das Suchen von bestimmten Wörtern 
geht bei dieser Struktur schneller als 
bei einer Listen-Struktur, bei der se¬ 
quenziell gesucht werden müßte. Eine 
Listen-Struktur kann hier als Sonderfall 
aber auch entstehen, wenn die Wörter 
z. B. alphabetisch sortiert eingegeben 
werden. Das Programm ist also insbe¬ 
sondere für unsortierte Daten gut ge¬ 
eignet. 


1.6.4 Netzstrukturen 

Hier soll gezeigt werden, daß für be¬ 
stimmte Anwendungen auch Netzstruk¬ 
turen sinnvoll sind. Es sei folgende Auf¬ 
gabenstellung gegeben: Es soll ein Laby¬ 
rinth simuliert werden. Das Labyrinth 
bestehe aus einzelnen Räumen, die 
über Gänge miteinander verbunden 
sind. Von einem Raum kann in Nord-, 
Süd-, Ost- und Westrichtung, falls ein 
Gang vorhanden ist, weitergegangen 
werden. Es sollen auch Gänge existie¬ 
ren, die nur in einer Richtung begangen 
werden können. Es wird zur Realisie¬ 
rung eine Struktur mit vier Zeigern ver¬ 
wendet. Die Zeiger sind mit „sued“, 
„nord“, „ost“ und „west“ benannt. Zeigt 
ein Zeiger auf sein eigenes Objekt, so 
gibt es keinen Gang in dieser Richtung. 

Abb. 1 . 6 . 4-1 zeigt das gesamte Pro¬ 
gramm. Das Programm kann z. B. zur Si¬ 
mulation einer Umgebung für ein kyber¬ 
netisches Modell, einer Maus o. ä., ver- 


84 













































1.6 Dynamische Datenstrukturen 


PROGRflM labyrinthtINPUT,OUTPUT); 
TYPE 

beschr = PflCKED RRRRYCl..283 
zeiger = t zi n «er; 

zi i v ii v ier = 

RECORD 

s u e d 5 n o r d ? o s t» w e s t, : z 
r a u n : b e s c h r 
END; 


V fl R 

s tart,aktuell : z e i g e rj 
ch : CHflR; 

PROCEDURE initj 

V fl R 

h1? h 2 : zeigerj 
BEGIH 

NEW (aktuell).; 
a k t u e 111. r a u m ’ fl u s g a n g 

aktuellt.sued := aktuell; 
ak t u e11T.no r d := aktuell; 
aktuellt.ost := aktuell; 
Start : = a k t u e 115 
NEW(aktuell); 
aktue11T.rau« := ’Raun 9 
aktuellt.ost : = s t, a r t,; 
s t a r 11.w e s t := aktuell; 
aktueilt.west := akt u e 11; 
a k t u e 111. s u e d : = a k t u e 11; 
hl := aktuell; 

NEW(aktuell); 
a kt ue 111. rau i v i : = ! Raun 8 
ak t u e 111 .o s t := aktuell; 
a k t u e 111. w e s t : = o. k t u eil; 
ak t u e111 .s ue d := hl; 
h11 .n o r d := aktuell; 
hl != ak t u e11; 

NEW(aktuel 1); 
akt ueilt.raun := ! Rau« 6 
a k t u e 1 11. n o r d : = a k t u e 11; 
aktuellt.sued := h1; 
ak t uellt.west := ak t u eil; 


OF CHflR; 


? i 9 e r; 


Abb. 1.6.4-1 
Labyrinth-Programm 
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hl : = aktuell; { konserve raun 6 o.dresse > 
NEU(aktuell); 

aktuellt.raun := 'Raun 7 ’5 

aktuellt.sued s = aktuell; 
aktuellt.ost s = aktuell; 
a ktuellt.west s = aktuell; 
h11.os t := aktuell; 

h2 : = a kt ue 11; •( konserue raun 7 ad resse > 

NEU(aktuell); 

aktuellt.raun J = 9 R a un 4 5 ; 

aktuellt.sued := aktuell; 
aktuellt.no rd := aktuell; 
a k t u e 111.o s t := aktuell; 
h 21.n o r d := aktuell; 
h 2 := aktuell; < raum 4 > 

NEW(aktuell); 

aktuellf.raun •= 9 Raun 3 ? ; 

a k t u e 111. n o r d «' = aktuell; 
aktuellt.sued s = aktuell; 
aktuellt.ost := h 2; 
h 21. o.i e s t : = aktuell; 
h2 := aktuell; < raun 3 > 

NEU(aktuell); 

aktuellt.raun := ■ Raun 2 ■ 5 

aktuellt.nord s = aktue115 
aktuellt.ost := h2; 
h 21.w e s t s = aktuell; 
h 2 != aktuell; < Raun 2 ) 

NEU (aktuel1); 

aktuel11.raun s= 9 Raun 5 ’; 

a k t u e111.we s t := a k t u eil; 
aktuellt.sued := aktuell; 
aktuellt.ost •= hl; {raun 6> 
aktuellt.nord := h2; 
h 21.s u e d := aktuell; 

NEU(aktuell); 

aktuellt.r a u n := 9 Rauni 9 ; 

aktuellt.no r d •= aktuell; 
aktuellt.sued := aktuell; 
aktuellt.ost != h 2; 
h 2t.w e s t := a k t u e11; 
h 2 := aktuell; < rau n 1> 

NEU(aktuell); 

a k t u e111.r a u n := 'Eingang • ; 

aktuellt.n o r d := aktuell; 
aktuellt.sued s = aktueil; 
aktuellt.west s = aktuell; 
aktuellt.ost := h 2; 
h 21. w e s t : = a k t u e 11; 

Start := aktuell 
END; 


zu Abb. 1.6.4-1 
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1.6 Dynamische Datenstrukturen 


PRGCEDURE gehe(dir : CHfiR); 


BEGIN 

GASE 


dir 


o • 


END 

END; 


OF 

aktuell 
a k t u e 1 1 
a k t u e 11 
aktuell 


= aktuellt.nord; 
= aktuell!.sued5 
= aktuellt.ost; 

= aktuell!.west 


BEGIN 

URITELN; 

URITELN(’Sie befinden sich an Anfang eines Laby rinths 9 ); 

W R I T E L N (’ S i e ciuessen hineingehen u n d d e n fl u s g a n g f i n d e n 5 ) ; 
URITELNC’Die Richtungen n,s,o,w sind noeg1ich 9 ); 
URITELNC’Nicht i n n e r k a n n von ei n e n R a u n a u c h w i e d e r ’ ) ; 

U RIT E L N( 5 u e b e r die entgegengesetzte Richtung in d e n 9 ) ; 

U RIT E L N( 9 vo r h e r g e h e n d e n z urueckgel a ng t werden’); 
ini15 {besetzten der Raun Definitionen> 

URITELN(aktuellt.raun); 

REPEflT 

URITE ( 9 Richtung -: ’ ) ; 

READ(ch); 

URITELN; 

IF ch IN C J n J , ’s’ , ’o’ , ’ w’] zu Abb. 1.6.4-1 

THEN 

BEGIN 

g e h e (c h) ; 

URITELN (aktuel lt.raun) 

END 

UNTIL ch = ’.’ 

END. 


wendet werden. Hier wurde es so ausge¬ 
legt, daß man sich selbst in diesem Laby¬ 
rinth bewegen kann. Es gibt zwei beson¬ 
dere Räume. Einmal ist dies der Raum 
mit dem Namen „Eingang“. Dort beginnt 
das Labyrinth. Dann gibt es noch einen 
„Ausgang“, den es zu finden gilt. Die 
Räume im inneren des Labyrinth sind 
von „Raum 1“ bis „Raum 9“ durchnume¬ 
riert. Als Eingabe kann ein Buchstabe 
„s“, „n“, „o“ oder „w“ eingegeben werden, 
der als Anfangsbuchstabe der Richtung 
steht. Abb. 1 . 6 . 4-2 zeigt einen Programm¬ 
lauf. Die Struktur des Labyrinths ist in 
Abb. 1 . 6 . 4-3 dargestellt. Die eingezeich¬ 
neten „Türen“ verdeutlichen Stellen, an 


denen nur in einer Richtung zum näch¬ 
sten Raum gewechselt werden kann. 
Abb. 1.6.4-4 zeigt den Aufbau der Objek¬ 
te „zimmer“. Sie besteht aus vier Zei¬ 
gern, die die möglichen Verbindungen 
angeben und einen Namen. In Abb. 
1 . 6 . 4-5 ist die Struktur des Labyrinths 
mit der Darstellung durch Zeiger abge¬ 
bildet. Existieren zwei Pfeile mit entge¬ 
gengesetzten Richtungen zwischen 
zwei Räumen, so kann der Gang zwi¬ 
schen ihnen in beiden Richtungen be¬ 
gangen werden. Pfeile, die auf dasselbe 
Objekt zeigen geben an, daß kein Gang 
in dieser Richtung existiert. 
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So reift PfiSCRL/M ver 83.05/03.05 

Sie befinden sich aft fl nf an g eines Lab yrin th s 
Sie ftuessen hine i ngehen und den flusgang finden 
Die Riehtu n g e n n,s > o * w sind fto e g1ich 
N i c h t i ft ft e r k a n n u o n ei n e ft R a u ft a u c h w i e d e r 
ueber die entgegengesetzte Riehtung in den 
uorhergehenden zurueekgelangt werden 
E i n g a n g 


Richtung - sn 

R a u n 4 


E i n g a n g 

Richtung - : s 


Rieh t ung -sw 

R a u n 4 


E i n g a n g 

Rieh t ung -sw 


Richtung o 

Raun 3 


R a u n 1 

Richtung -:s 


Richtung -so 

R a u n 3 


Raun 2 

Richtung -: w 


R i c h t u n g -: n 

R a u n 2 


R a u n 2 

Richtung -s s 


Richtung - : s 

R a u n 5 

Abb. 1.6.4-2 

R a u n 5 

R i c h tung - : s 

Beispiellauf durch 

Rieh t, u n g -: o 

R a u n 5 

das Labyrinth 

R a u n 6 

Richtung -5o 


R i c h t u n g - s w 

R a u n 6 


R a u n 6 

R i c h tung - ss 


R i c h t, u n g -: n 

R a u n 8 


R a u n 6 

R i c h t u n g - : s 


Richtung -so 

R a u n 9 


R a u n 7 

Ri chtung s 


R i c h t u n g -: s 

Raun 9 


R a u n 7 

R i c h t u n g - s w 


Richtung - sw 

R a u n 9 


R a u n 7 

Richtung -so 


Richtung - s n 

fl u s g a n g 

R i c h t u n g - : . 



E 
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Abb. 1.6.4-3 
Aufbau 

des Labyrinths 


Abb. 1.6.4-4 
Pointer-Struktur 


Zimmer 


Ausgang 


sued 

nord 

ost 

west 

raum 
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1.7 Dateiverarbeitung 



1.7 Dateiverarbeitung 

Außer von der Konsole konnten bisher 
keine Daten bezogen werden. Die Aus¬ 
gabe war ebenfalls auf Bildschirm oder 
Drucker beschränkt. Nach Ablauf eines 
Programms war von diesem nichts hin¬ 
terlassen worden. Wir wollen jetzt die 
Dateiverarbeitung kennenlernen. Ein 
PASCAL-Programm sieht eine Datei wie 
eine Variable an, deren Speicherplatz 
aber den des Programms um ein Vielfa¬ 
ches übersteigen kann. Daher kann von 
einem PASCAL-Programm aus, eine Da¬ 
tei, nur in Teilabschnitten erreicht wer¬ 
den. Eine Datei sieht damit ähnlich aus 
wie ein Feld von einer Rekord-Struktur, 
also wie ARRAY [.. ] OF RECORD... Al¬ 
lerdings kann auf eine Datei nicht über 
einen Index zugegriffen, sondern nur 
ein Element nach dem anderen erreicht 
werden; beginnend mit dem ersten Ele¬ 
ment. Man sagt auch, die Datei ist für se¬ 
quenzielle Verarbeitung ausgelegt. Das 
Gegenteil davon ist ein Random-Zugriff, 
bei dem eine Art Index angegeben wer¬ 


den kann, was aber im Standard-PAS- 
CAL nicht möglich ist. 


1.7.1 Definition eines Dateizugriffs 

Eine Datei wird z. B. bei der TYPE-Defi- 
nition angegeben. Es soll zum Beispiel 
eine Datei aufgebaut werden, die aus 
Textzeilen mit einer Länge von 80 Zei¬ 
chen besteht, beispielsweise um einen 
Texteditor aufzubauen. 

Die Definition 
TYPE 

zeile = PACKED ARRAY [ 1 .. 80 ] 
OF CHAR; 

dateityp = FILE OF zeile; 

VAR 

datei : dateityp; 

legt die Datei „datei“ als Variable an. Um 
sie dem Compiler als Schnittstelle nach 
außen bekannt zu geben, muß sie ähn¬ 
lich wie bei Prozeduren Parameter ange¬ 
ben. Auch in der Überschrift erschei¬ 
nen, also: 
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Datei 

Abb. 1.7.1-1 Aufbau einer Datei 

PROGRAM dateiverarbeitung 
(INPUT,OUTPUT,datei); 

INPUT und OUTPUT sind die Standard- 
IOs, die bei READ und WRITE verwen¬ 
det werden und deshalb auch in der 
Überschrift erscheinen müssen. Hier 
gibt es bei den Mikrorechnern-Imple- 
mentationen Unterschiede, die im je¬ 
weiligen Handbuch nachgesehen wer¬ 
den müssen. Eine Datei sieht im Prinzip 
wie in Abb. 1.7.-1 aus. Hier sind z. B. fünf 
Komponenten sichtbar. 

Mit 
datei t 

kann auf eine solche Komponente zuge¬ 
griffen werden, wenn die Datei mit der 
obigen Definition übereinstimmt. 

1.7.2 Schreiben auf Dateien 
Eine Datei ist zunächst einmal leer, 
wenn sie nicht schon vorher existierte 
und es müssen Daten hineingeschrie¬ 
ben werden. Dabei geschieht dies eben¬ 
falls komponentenweise. Abb. 1.7.2-1 
zeigt den Ablauf. Im Fall a) ist die Datei 
zunächst noch leer, bei b) wurde eine 
Komponente geschrieben und bei c) 
noch eine weitere. Um so vorzugehen, 
wird zunächst der Befehl RE WRITE (da¬ 
tei) angegeben. Der Datei-Zeiger wird 


bei der Datei 


damit auf den Anfang der Datei gelegt 
und eine etwaige Information, die vor¬ 
handen war, wird damit gelöscht. Mit 
PUT(dateit) wird eine Komponente in 
die Datei geschrieben, und der Datei- 
Zeiger wandert an die nächste freie Stel¬ 
le. Nun muß aber zuvor die Variable „da- 
teit“ mit Daten belegt werden. Die kann 
z. B. wie folgt durchgeführt werden: 

Mit 

VAR 

buffer : zeile; 

wird ein Feld definiert, daß genauso wie 
eine Komponente der Datei 80 Zeichen 
beinhalten kann. Dieses Feld kann nun 
mit irgendwelchen Daten belegt wer¬ 
den. Dann wird mit 
dateit := buffer; 

der Inhalt des Feldes an die Datei-Varia¬ 
ble zugewiesen. Mit 
PUT(dateit); 

wird die Information in der Datei abge¬ 
legt. Die Funktion WRITE kann eben¬ 
falls verwendet werden. Es gilt dabei: 
dateit buffer; 

PUT(dateit); 
kann zu 

WRITE(datei,buffer); 
vereinfacht werden. WRITELN kann 
auch verwendet werden, wenn es sich 
beim Dateityp um eine Text-File han¬ 
delt. 

TYPE 

TEXT = PACKED FILE OF CHAR; 
Dabei ist TEXT ein Standard-Typ, der 
nicht definiert werden muß und mit 

VAR 

textdatei : TEXT; 

wird eine Datenvariable definiert, deren 
Datei aus Einzelzeichen besteht. 

Die Funktion 

WRITE (datei,kompl ,komp 2 ,komp 3); 
wirkt wie drei einzelne WRITE-Anwei- 
sungen. 
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1.8 Sonderfunktionen 


1.7.3 Lesen aus einer Datei 
Beim Lesen wird nun umgekehrt verfah¬ 
ren. Mit RESET(datei) wird der Datei- 
Zeiger auf den Anfang der Datei gestellt. 
Es wird dann sofort die erste Kompo¬ 
nente in die Variable dateit gestellt. Mit 
dem Befehl GET(dateit) wird die näch¬ 
ste Komponente gelesen. In Abb. 1 . 7 . 3-1 
ist die Situation dargestellt. Nach dem 
RESET-Befehl wird die erste Kompo¬ 
nente eingelesen (a). Mit dem GET-Be- 
fehl wird die Situation b) erreicht. Ein 
weiterer GET-Befehl liest die dritte 
Komponente ein und der Fall c) liegt vor. 
Wird auf eine Komponente zugegriffen, 
die nicht existiert, so kann mit der Boole¬ 
schen Funktion EOF(datei) der Tatbe¬ 
stand festgestellt werden. Sie nimmt den 
Wert TRUE an, wenn auf eine Kompo¬ 
nente zugegriffen wird, die nicht defi¬ 
niert ist. 

Das Lesen aus einer Datei kann also 
beispielsweise wie folgt geschehen: 
RESET(datei); 
buffer := dateit; 

(• erste Komponente •) 
GET(dateit); 
buffer := dateit; 

(• zweite Komponente • ] 

Nach jeder Eingabe gibt es zwei Mög¬ 
lichkeiten: 

EOF(datei) ist FALSE, dann enthält 
dateit gültige Daten. 

EOF(datei) ist TRUE, dann ist dateit 
Undefiniert und das Dateiende 
erreicht. 

Anstelle von GET kann auch READ ver¬ 
wendet werden. Dabei gilt: 
buffer := dateit; 

GET(dateit); 
ist gleichwertig mit 
READ(datei, buffer); 

Bei Textdateien gibt es auch die Mög¬ 
lichkeit mit READLN einzulesen und 
dabei Daten bis zum Zeilenende zu 


T 


Abb. 1.7.3-1 Zeiger bei der Datei 

überlesen. Mit der Funktion EOLNftext- 
datei) kann ein Zeilenende auch per 
Programm abgefragt werden. 

READLN (textdatei) 
ist gleichwertig zu 
WHILE NOT EOLN(textdatei) DO 
GET(textdateit); 

GET(textdateit); 

wobei für „textdatei“ die Definition 
VAR 

textdatei : TEXT; 

gilt. 

Mit READ(datei,bufl,buf2,... bufn) 
wird eine Sequenz von READ(datei,bu- 
fi) abgekürzt. 


1.8 Sonderfunktionen 

1.8.1 Die GOTO-Anweisung 
Viele, die schon mit einer anderen Pro¬ 
grammiersprache, wie BASIC und FOR¬ 
TRAN gearbeitet haben, werden sich 
wundern, daß wir bisher nicht ein einzi¬ 
ges Mal eine Sprunganweisung verwen¬ 
det haben. Für die Programmierung von 
beliebigen Problemen ist dies tatsäch¬ 
lich in PASCAL nicht nötig, da sich alle 
Probleme mit strukturierten Anweisun¬ 
gen, wie WHILE, IF THEN ELSE ect., lö¬ 
sen lassen. In PASCAL gibt es dennoch 
eine GOTO-Anweisung um z. B. für Feh¬ 
lerfälle einen Sprung auf eine Fehlerbe¬ 
handlung zu ermöglichen, ohne die Pro- 
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grammstruktur durch IF-Anweisungen 
zu sehr undurchsichtig zu machen. 

Die Sprungmarken müssen definiert 
werden. Dies geschieht mit der LABEL- 
Anweisung. Sie wird vor der CONST, 
TYPE... Definition angegeben. Die Mar¬ 
ken können nur ganze Zahlen sein. 
Beispiel: 

LABEL 1,2; 

Ein Sprung kann dann lauten: 

GOTO 1; 
oder GOTO 2; 

die Einsprungstelle wird mit 
1: an Weisung; 
oder 2: an Weisung; 

gekennzeichnet. 

1.8.2 Prozeduren und Funktionen 
als Parameter 

Eine, leider nur bei wenigen Compilern 
vorhandene Möglichkeit, Prozeduren 


und Funktionen als Parameter zu über¬ 
geben, bietet einen sehr interessanten 
Aspekt. 

Es könnte dann zum Beispiel eine Pro¬ 
zedur 

PROCEDURE kurvendiskusion 
(FUNCTION f : REAL); 
definiert werden. Sie soll eine Kurven¬ 
diskusion ausführen. Es ist dann mög¬ 
lich z. B. falls 

FUNCTION parabelfx :REAL) :REAL; 
BEGIN 

parabel := X • X 
END; 

definiert ist mit 
kurvendiskusion(parabel); 

die Funktion „parabel“ als Parameter an 
„kurvendiskusion“ zu übergeben. In der 
Prozedur „kurvendiskusion“ wird mit 
f(x) allgemein gearbeitet. 
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2 Mikrorechner PASCAL-Realisierungen 


Wir hatten uns bisher auf das Standard- 
PASCAL beschränkt, so wie es von Jen- 
sen & Wirth in [2] definiert wurde. In 
den folgenden Abschnitten soll nun auf 
verschiedene PASCAL-Systeme einge¬ 
gangen werden, wie sie für Mikropro¬ 
zessoren erhältlich sind. Dabei ergeben 
sich Erweiterungen des Sprachumfangs 
und leider auch ein paar Einschränkun¬ 
gen, je nach PASCAL-Version. Ein Pro¬ 
blem bei den Mikrorechnern ist der be¬ 
schränkte Speicherplatz. Da PASCAL ei¬ 
ne recht umfangreiche Sprache ist, wird 
sehr viel Platz für die Compiler benötigt. 
Die PASCAL-Systeme liegen daher 
meist knapp unter der maximalen Spei¬ 
chergrenze (48K Bytes bis 56K Bytes 
von max. 64 K Bytes]. Die Quellen wer¬ 
den mit einem Editor erstellt und sind 
auf einer Diskette oder Platte abgelegt. 
Der Compiler übersetzt sie entweder in 
einen Zwischencode (bei PASCAL P- 
Code genannt] oder in Maschinenspra¬ 
che. Das Ergebnis wird wieder auf Dis¬ 
kette abgelegt. Danach kann im Falle der 
Maschinensprache das Programm di¬ 
rekt gestartet werden, oder es wird mit 
einem P-Code-Interpreter ausgeführt. 
Wie eine Mikrorechnerkonfiguration 
aufgebaut sein kann, ist ausführlich in 
den Büchern 3, 4 dargestellt (siehe An¬ 
hang]. 


2.1 Das UCSD-PASCAL 

Das wohl verbreitetste PASCAL-System 
ist das UCSD-PASCAL , das von der Uni- 
versity of California, San Diego stammt 


[8,9]. Der PASCAL-Compiler erzeugt ei¬ 
nen P-Code, der dann interpretiert wird. 
Zum UCSD-PASCAL gehört aber nicht 
nur der Compiler, sondern auch ein Edi¬ 
tor, sowie ein Betriebssystem. Da die ge¬ 
samte Systemsoftware selbst in PAS¬ 
CAL geschrieben ist, und in P-Code- 
Form vorliegt, ist es möglich gewesen, 
das UCSD-System unabhängig vom Mi¬ 
krorechner zu verwenden. Es wird nur 
der P-Code-Interpreter neu geschrie¬ 
ben, sowie der Code-Generator eines 
ebenfalls verfügbaren Assemblers. Da¬ 
mit ist das gesamte System auf einem be¬ 
liebigen Mikrorechner verfügbar. Das 
UCSD-System existiert damit schon für 
die Rechner 8080,Z80,6800,6809,6502 
usw. Da auch das Betriebssystem ein¬ 
heitlich ist, können Programme von ver¬ 
schiedenen Mikrorechnern, die in PAS¬ 
CAL für dieses System geschrieben 
wurden, untereinander ausgetauscht 
werden. 

Das UCSD-PASCAL bietet einige Er¬ 
weiterungen an, die durch die große 
Verbreitung fast schon ein neuer Stan¬ 
dard geworden sind und für das Schrei¬ 
ben von PASCAL-Programmen sehr 
nützlich sind. Die neuen Befehle wer¬ 
den daher in den folgenden Kapiteln nä¬ 
her beschrieben. 


2.1.1 String-Verarbeitung 
In PASCAL sind nur Definitionen der 
Art PACKED ARRAY .. OF CH AR Für 
Zeichenketten möglich. Hier wird ein 
neuer Typ STRING eingeführt, der es 
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erlaubt, Strings mit unterschiedlicher 
Länge zu verarbeiten. Die Definition 
VAR 

name : STRING; 

deklariert „name“ als einen String, der 
maximal 80 Zeichen lang sein kann. Soll 
eine andere Länge reserviert werden, so 
ist die Größe in Klammern anzugeben: 
VAR 

zeichenkette : STRING[16]; 

In „zeichenkette“ können maximal 16 
Zeichen stehen. Die Betonung liegt da¬ 
bei auf maximal, da auch weniger Zei¬ 
chen enthalten sein können. Strings mit 
unterschiedlichen Längen können ver¬ 
glichen werden, wobei lexiografische 
Ordnung zugrunde liegt. 

Für Strings gibt es eine Reihe von 
nützlichen Funktionen: 

FUNCTION LENGTH 
( zeichenkette : STRING ): INTEGER; 
Die aktuelle Länge eines Strings kann 
dadurch ermittelt werden. 

LENGTH(’1234’) ergibt 4 
und 

LENGTH(”) ergibt 0 
FUNCTION POS(such : STRING, 
quell : STRING) : INTEGER; 

Damit läßt sich die erste Position von 
„such“ in „quell“ ermitteln. Beispiel: 
suche := ’FIND’; 
suchin := ’ICH FINDE’; 
WRITELN(POS(suche,suchin)); 
ergibt: 5, wobei „suche“ und „suchin“ 
vom Typ STRING sind. 

FUNCTION CONCAT 
(quelltexte, ... : STRING) : STRING; 
Mehrere durch Kommatas getrennte 
Strings können zu einem neuen verbun¬ 
den werden: 
anfang —’START’; 
ende := ’STOP’; 

WRITELN(CONCAT 
(anfang,’ MITTE ’,ende)); 
gibt den Ausdruck: 

START MITTE STOP 


FUNCTION COPY(quell : STRING; 
startpos, anzahl : INTEGER) : 
STRING; 

Es wird ein String mit „anzahl“ Zeichen 
von der Position „startpos“ aus als Er¬ 
gebnis übergeben: 
daten := TEXT MIT ZEICHEN’; 
WRITELN(COPY(daten,6,3)); 
ergibt: 

MIT 

als Ausdruck. 

PROCEDURE DELETE 
(ziel : STRING; startpos, 
anzahl : INTEGER); 

Beginnend mit „startpos“ werden „an¬ 
zahl“ Zeichen aus dem String „ziel“ ent¬ 
fernt. 

Zeichen := TEXT UND AUSGABE’; 
DELETE(zeichen, 6,4); 
WRITELN(zeichen); 
ergibt: 

TEXT AUSGABE 
PROCEDURE INSERT 
(quelle, ziel : STRING; 

Position : INTEGER); 

Die Zeichen in „quelle“ werden nach 
„ziel“ beginnend bei „position“ einge¬ 
fügt. 

Beispiel: 

einfuegen := ’EINGEFUEGTER’; 
zieltext := 'DIES IST EIN TEXT’; 
INSERT(einfuegen,zieltext, 

POS(’TE’,zieltext)); 
in „einfuegen“ steht dann: 

DIES IST EIN EINGEFUEGTER TEXT 
Im UCSD-PASCAL ist es möglich, einen 
INTEGER mit hoher Genauigkeit zu de¬ 
finieren Dies geschieht durch Angabe 
der gewünschten Dezimalstellen in 
Klammer. 

Beispiel: 

VAR X : INTEGER[8]; 
definiert eine Variable X mit acht Dezi¬ 
malen, die auch ein Vorzeichen haben 
kann. Der Index darf nicht größer als 36 
sein. 
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PROCEDURE STRflonginteger : long; 
zielstring : STRING]; 

Die INTEGER-Variable „longinteger“ 
wird in einen String konvertiert. Bei¬ 
spiel für die Anwendung: 
langint := 1234567891; 

STR(langint,stringvar]; 

IN SERT (7, stringvar, 

PRED(LENGTH(stringvar]]]; 
WRITELN(stringvar); 
ergibt 

12345678.91 


2.1.2 Verarbeitung 

mit Zeichenfeldern 

Nicht nur für den neuen Typ STRING 
gibt es neue Befehle, sondern auch für 
den Typ PACKED ARRAY .. OF CH AR 
sind Erweiterungen vorgesehen. 
FUNCTION SCAN 
(laenge : INTEGER; 
ausdruck : teilausdruck; 
zeichenfeld : PACKED ARRAY .. OF 
CHAR] : INTEGER; 

Damit läßt sich eine Anzahl von Zei¬ 
chen bestimmen, die entweder die in 
„laenge“ angegebene Maximalzahl dar¬ 
stellt, oder die Position, die durch „aus¬ 
druck“ bestimmt wird, beginnend mit 0. 
Ist die „laenge“ negativ, so wird rück¬ 
wärts gesucht. Bei „zeichenfeld“ kann 
ein Startindex angegeben werden. 

Als Teilausdruck gilt: 

„0“ oder „=“ gefolgt von einem 
Zeichenausdruck. 

Beispiel: 

test := ’ABCDEFABCDEF’; 

SCAN(100, (>’A’,test) ergibt den Wert 1. 
PROCEDURE MOVELEFT (quellfeld, 
zielfeld : PACKED ARRAY .. OF 
CHAR; laenge : INTEGER]; 
PROCEDURE MOVERIGTH 
( ... wie oben ... ]; 

Mit diesen beiden Prozeduren kann 
ein Blocktransport ausgeführt werden. 


Dabei beginnt MOVELEFT auf der lin¬ 
ken Seite und transportiert nach der lin¬ 
ken Seite des Ziels und MOVERIGHT 
transportiert beginnend mit der rechten 
Seite. Es werden „laenge“ Bytes trans¬ 
portiert. Es kann durch Indizierung der 
Felder ein Startpunkt gegeben werden. 

PROCEDURE FILLCHAR 
(zielfeld : PACKED ARRAY .. OF 
CHAR; laenge : INTEGER; 

Zeichen : CHAR]; 

Ein „zielfeld“ wird mit „laenge“ Zeichen 
aufgefüllt. Die Anweisung ist gleichwer¬ 
tig zu: 

a[0] := Zeichen; 

MOVELEFT 

(a[0],a[l],laenge-l]; 

FILLCHAR ist allerdings viel schneller. 

2.1.3 IO-Verarbeitung 

PROCEDURE RESET (datei : FILE]; 

PROCEDURE RESET 

(datei : FILE; dateiname : zeichenkette]; 

PROCEDURE REWRITE 

(datei: FILE; dateiname : zeichenkette]; 

Hier wird von der Standard-Definition 
etwas abgewichen. Auf der Diskette sind 
Dateien abgelegt, die einen Namen be¬ 
sitzen. Nun muß dieser Name dem PAS¬ 
CAL bekannt gegeben werden, entwe¬ 
der um dann aus dieser Datei lesen zu 
können, oder um sie zu beschreiben. 
Der „dateiname“ ist dabei den UCSD- 
Konventionen gemäß aufgebaut. Mög¬ 
lich wäre z. B.: 
RESET(datei,’LIES.MICH’]; 

REWRITE 

(ausgebendatei/PRINTER:’); 

Im ersten Fall wird die Datei „LIES. 
MICH“ zum Lesen geöffnet, im zweiten 
Fall wird die Ausgabe auf den Drucker 
ermöglicht. Weitere Voreinstellungen 
sind: 

CONSOLE: ; Bildschirm und 

Tastatur, die aber 
voreingestellt ist 
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KEYBOARD: ; Tastatur ohne Echo 

REMIN: ; Remote input 

REMOUT: ; Remote output 

PRINTER: ; Druckerausgabe 

Wird RESET ohne „dateiname“ angege¬ 
ben, so wird nur der Dateizeiger auf den 
Anfang zurückgestellt, wobei schon 
geöffnet worden sein muß. 


PROCEDURE UNITRE AD (unitzahl : 
INTEGER; Zeichenfeld: PACKED AR- 
RAY; laenge : INTEGER; [diskblockadr : 
INTEGER; zahl : INTEGER]]; 
PROCEDURE UNITWRITE( ... wie 
UNITWRITE ... ]; 

Die „unitzahl“ gibt die Geräteadresse an. 
+ 1: CONSOLE: 

#2: KEYBOARD: 

#4: Drive 1 
#5: Drive 2 
#6: PRINTER: 

+ 7: REMIN: 

+ 8: REMOUT: 

Im „zeichenfeld“, das ein PACKED AR- 
RAY kann auch mit einem Index verse¬ 
hen werden, dieser wird dann als Start- 
Adresse genommen. In „laenge“ ist die 
Anzahl der zu übertragenden Bytes an¬ 
zugeben. Die „diskblockzahl“ wird nur 
bei Diskettenzugriffen benötigt. Sie 
stellt die absolute Blockzahl dar, bei der 
der Transfer beginnt. Wird sie nicht an¬ 
gegeben, so ist 0 voreingestellt. Mit 
„zahl“ kann, falls 1 angegeben ist (0 ist 
voreinst.), bestimmt werden, daß die 
Übertragung asynchron vorgenommen 
werden soll. 

FUNCTION UNITBUSY 
(unitzahl : INTEGER) : BOOLEAN; 
Falls die Funktion den Wert TRUE er¬ 
hält, wartet das angesprochene Gerät 
auf Beendigung eines IO-Zyklus. 
PROCEDURE UNITWAIT 
(unitzahl : INTEGER); 

Es wird solange gewartet, bis das ange¬ 
sprochene Gerät frei ist. Die Anweisung 
ist identisch mit: 


WHILE UNITBUSY(n) DO ( warten ); 
PROCEDURE UNITCLEAR 
(unitzahl : INTEGER); 

Die IO-Treiber werden in den Urzustand 
zurückgesetzt. 

FUNCTION BLOCKREAD 
(datei : FILE; 

zeichenfeld : PACKED ARRAY ..; 
bioecke : INTEGER; 

[reladr : INTEGER]) : INTEGER; 
FUNCTION BLOCKWRITE 
( ... wie oben ...) : INTEGER; 

Als Ergebnis wird ein Wert übergeben, 
der die Anzahl der übertragenen Blöcke 
darstellt. Die Datei muß als „untyped“ 
deklariert sein, daß heißt hier als F: FILE; 
ohne Angabe des Fileaufbaus. Ein Block 
ist hierbei 512 Bytes lang. Die Länge von 
„zeichenfeld“ muß ein ganzzahliges 
Vielfaches der Blocklänge sein. Mit 
„bioecke“ wird die Anzahl der ge¬ 
wünschten Blöcke angegeben, die über¬ 
tragen werden sollen. Mit „reladr“ kann 
die Blocknummer angegeben werden, 
die beginnend mit 0 vom Datei-Anfang 
gezählt wird. Wird der Parameter „re¬ 
ladr“ nicht angegeben, so erfolgt ein se¬ 
quenzieller Zugriff. Mit EOF(datei) 
kann geprüft werden, wann der letzte 
Block einer Datei gelesen wurde. 
PROCEDURE CLOSE(datei : FILE); 
PROCEDURE CLOSE 
(datei : FILE; Option : Optionen); 

Als Option gibt es: 

LOCK 

NORMAL 

PURGE 

CRUNCH 

Wird keine „Option“ angegeben, so gilt 
dasselbe wie für NORMAL. Der Datei- 
Status wird auf Close gesetzt. Wurde die 
Datei mit REWRITE eröffnet, so wird sie 
anschließend gelöscht. 

Wird LOCK angegeben, so bleibt bei 
Diskettenzugriffen die Datei auf der Dis¬ 
kette nach dem CLOSE-Befehl erhalten. 
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Wird PURGE angegeben, so wird der 
Dateiname der zu „datei“ gehört, ge¬ 
löscht. 

Bei CRUNCH wird eine „datei“ ge¬ 
schlossen, so daß nur der minimale Be¬ 
darf auf der Diskette erhalten bleibt. 

FUNCTION IORESULT : INTEGER; 
Es wird hier im Fehlerfall eine Fehler¬ 
nummer angegeben, sonst ist der Wert 0. 

PROCEDURE PAGE (datei : FILE); 
Ein Form-Feed wird an die Datei überge¬ 
ben (ASCII FF). 

PROCEDURE SEEK 

(datei : FILE; zahl : INTEGER); 

Damit ist es möglich, auch im Random- 
Access auf die Datei zugreifen zu kön¬ 
nen. Es wird der „zahl“te Rekord ange¬ 
sprochen und der Dateizeiger dorthin 
gesetzt, so daß der nächste Zugriff mit 
GET, PUT dort ausgeführt wird. Zwi¬ 
schen zwei SEEK-Befehlen muß minde¬ 
stens ein GET oder PUT ausgeführt wer¬ 
den, da sonst nicht vorhersehbare Er¬ 
gebnisse folgen. 

Die Funktionen EOF, EOLN und die 
Prozeduren GET, PUT, READ (LN), WRI- 
TE(LN) werden standardgemäß ausge¬ 
führt, nur, daß bei READ(LN) und WRI- 
TE(LN) die Einschränkung gilt, Zugriffe 
nur bei Dateien des Typs TEXT (FILE 
OF CHAR) oder INTERACTIVE durch¬ 
zuführen. INTERACTIVE ist ein neuer 
Typ, der ein paar interessante Möglich¬ 
keiten schafft. 

Mit 

VAR 

dateiinteract : INTERACTIVE; 
wird eine Datei definiert. Bei einer nor¬ 
malen Datei, die durch FILE deklariert 
wurde, erfolgt beim Lesen gleich nach 
dem RESET der erste Zugriff. Bei einer 
INTERACTIVE-Datei ist dies nicht so. 
Denn ein Zeichen soll erst dann gele¬ 
sen werden, wenn ein Aufruf z. B. mit 
READ erfolgt. Dies ist bei den INPUT- 
und OUTPUT-Dateien schon immer so. 


Sie sind auf die Konsole eingestellt und 
werden immer dann verwendet, wenn 
keine Datei bei READ und WRITE ange¬ 
geben wird. Wird ein READ-Befehl von 
der Konsole ausgeführt, kann erst dann 
eine Eingabe von dort verlangt werden. 
Mit dem neuen Datentyp kann dies nun 
auch allgemein gefordert werden. Die 
Definition für READ ändert sich damit: 

READ(dateiinteract, buffer ); 
entspricht nun 
GET(dateiinteractt); 
buffer := dateiinteractt; 
aber nur beim Typ INTERACTIVE. 


2.1.4 Diverse Befehle 
FUNCTION SIZEOF 
(parameter : Variablen 
oder Type-Name) : INTEGER; 

Es wird die Anzahl der Bytes übergeben, 
die der Parameter im Stack belegt. Die 
Funktion ist z. B. nützlich bei FILLCHAR 
oder MOVE... Befehlen. 

FUNCTION TIME 
(VAR hoeherwertig, 
niederwertig : INTEGER); 

Die Uhrzeit in 50zigstel einer Sekunde 
wird übergeben, der Wert ist aber Hard¬ 
wareabhängig. 

FUNCTION LOG 
(zahl : REAL) : REAL; 

Der Logarithmus zur Basis 10 wird be¬ 
rechnet. 

FUNCTION PWROFTEN 
(exponent : INTEGER) : REAL; 

Als Ergebnis wird 10 ex P° nent übergeben, 
„exponent“ muß im Bereich 0..37 lie¬ 
gen. 

PROCEDURE MARK 
(VAR heapzeiger : tINTEGER); 
PROCEDURE RELEASE 
(VAR heapzeiger : tINTEGER); 

Mit diesen beiden Prozeduren kann die 
Prozedur DISPOSE approximiert wer¬ 
den, da sie nicht verfügbar ist. Werden 
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dynamische Variablen kreiert, so wird 
alles auf einem Stack angelegt. Dazu gibt 
es einen „heapzeiger“. Soll wieder Platz 
auf diesem Stack gemacht werden, so 
kann nicht einfach irgend ein Element 
gelöscht werden, sondern immer nur 
vom Ende des Stack bis zu einer be¬ 
stimmten Position. Diese Position kann 
mit MARK festgehalten werden. Dann 
werden z. B. von dort aus mit NEW neue 
Elemente angelegt. Wird dann RELEA¬ 
SE ausgeführt, so werden alle von dieser 
Position aus angelegten Variablen wie¬ 
der entfernt und der Platz ist für das An¬ 
legen von neuen Variablen wieder frei. 

PROCEDURE HALT; 

Die Programmausführung wird ge¬ 
stoppt. 

PROCEDURE GOTOXY 

(xkoord, ykoord : INTEGER); 

Der Cursor wird an die Stelle des Bild¬ 
schirms gebracht, der durch die beiden 
Koordinaten angegeben wurde. Dabei 
ist (0,0) links oben. 


2.1.5 Weitere Unterschiede 
zum Standard-PASCAL 

In der CASE-Anweisung ist das Ergeb¬ 
nis der Ausführung Undefiniert, wenn 
es keine Marke gibt, die im CASE-Selek- 
tor steht. Im UCSD-PASCAL wird dann 
die Ausführung mit der nächsten An¬ 
weisung fortgesetzt, die der CASE-An¬ 
weisung folgt. Vor der dem END in Va- 
riant-Definitionen ist kein Strichpunkt 
zugelassen, was im Standard möglich 
wäre. 

EOF(datei) 

Als EOF-Zeichen gilt auch CTRL-C. 
GOTO und EXIT 

GOTO-Anweisungen sind nur inner¬ 
halb eines Blocks erlaubt. Mit EXIT ist 
eine Möglichkeit gegeben, mit einem Pa¬ 
rameter, der einen Prozedurnamen an¬ 


gibt, die angegebene Prozedur zu verlas¬ 
sen. 

Segment-Prozeduren 
Die einzelnen Segmente müssen nicht 
alle auf einmal im Speicher sein, sie wer¬ 
den vielmehr dynamisch vom Laufzeit¬ 
system geholt. Das UCSD-PASCAL-Sy- 
stem ist selbst auf diese Weise aufge¬ 
baut, da es sehr groß ist. 

Beispiel: 

PROGRAM Segmente; 

( definitionen ) 

PROCEDURE drucke 
(t : STRING); FORWARD; 
SEGMENT PROCEDURE eins; 

BEGIN PRINT (’ seg T) END; 
SEGMENT PROCEDURE zwei; 

BEGIN PRINT (’ seg 2’) END; 
PROCEDURE print; 

(• kein parameter da forward •) 
BEGIN writeln (t) END; 

BEGIN 
eins; zwei 
END. 

Es ergibt sich: 
seg 1 
seg 2 

Hier wurde übrigens FORWARD ver¬ 
wendet. Eine Möglichkeit, eine Proze¬ 
dur oder Funktion zu definieren, bevor 
sie niedergeschrieben wurde. FOR¬ 
WARD wird angewendet, da SEG- 
MENT-Prozeduren an erster Stelle ste¬ 
hen müssen. 

PASCAL-Programme können auch ge¬ 
trennt übersetzt werden und dann zu ei¬ 
nem Programm gebunden werden. Dazu 
werden die reservierten Worte UNIT, 
INTERFACE,IMPLEMENTATION und 
USES verwendet. Assembler-Unterpro¬ 
gramme können durch EXTERNAL an¬ 
gegeben werden. Wegen des Umfangs 
sei hier auf die UCSD-Manuale verwie¬ 
sen [8,9]. 
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2.2 PASCAL/M 

Dieses PASCAL-System wurde bei der 
Erstellung der Programmbeispiele des 
Buches verwendet. Das PASCAL läuft 
auf dem CP/M-Betriebssystem mit ei¬ 
nem Z80-Prozessor und mindestens 56K 
Bytes RAM. Das CP/M-Betriebssystem 
ist in [3] beschrieben. PASCAL/M [10] ist 
sehr ähnlich zu dem UCSD-PASCAL, be¬ 
sitzt aber doch einige Abweichungen. 
Der Compiler erzeugt aber ebenfalls ei¬ 
nen P-Code, der dann mit einem P-Code- 
Interpreter ausgeführt wird. 


2.2.1 String-Verarbeitung 
Wie auch beim UCSD-PASCAL gibt es 
den Typ STRING. Die Funktionen 
LENGTH POS INSERT 

DELETE CONCAT COPY 

haben die gleiche Bedeutung und Defi¬ 
nition wie im UCSD-PASCAL. 

Neu sind: 

PROCEDURE WDECA 
(zahl : INTEGER; 
zeichenkette : STRING); 
PROCEDURE WHEXA 
(zahl : INTEGER; 
zeichenkette : STRING); 

Die Prozedur WDECA wandelt eine vor¬ 
zeichenlose Zahl in eine Zeichenkette 
mit dezimaler Darstellung. Bei WHEXA 
erfolgt die Umwandlung in das sedezi- 
male (veralt. hexadezimal) Zahlensy¬ 
stem. 


2.2.2 Verarbeitung 

mit Zeichenfeldern 

Die Funktionen entsprechen exakt de¬ 
nen des UCSD-PASCALS. 

SCAN MOVELEFT 

MOVERIGHT FILLCHAR 


2.2.3 IO-Verarbeitung 
Die Prozeduren RESET und REWRITE 
sind ähnlich zu denen im UCSD-PAS¬ 
CAL, nur das bei den Datei-Angaben die 
CP/M-Konventionen eingehalten wer¬ 
den müssen. 


Beispiel: 

RESET(datei,’A:LIES.MIC’); 

(• Eröffnen der Datei 
LIES.MIC auf Drive A •) 
REWRITE(dateil,’LP:’); 

(• Ausgabe auf den Drucker •) 


Das Format des Dateinamens ist: 
name.extn 

oder device:name.extn 

oder device: 

Für „device“ kann stehen: 

A: Drive 0 

B: Drive 1 


H: Drive 7 

CONSOLE:Benutzerkonsole 

CON: 

CRT: Konsole ohne Echo 

READER: RDR-Gerät 
PUNCH: PUN-Gerät 
PRINTER: Drucker (LST) 

LP: 

NULL: Null-Gerät 


Alle Geräte verhalten sich wie im BIOS 
des CP/M-Systems definiert wurde bis 
auf CRT: und NULL:. Eine Eingabe von 
CRT: erfolgt ohne Echo, also ohne daß 
das eingegebene Zeichen auf dem Bild¬ 
schirm wieder ausgegeben wird. Ein 
Transfer mit NULL: wirkt wie die Anga¬ 
be irgend eines anderen Gerätes, nur 
daß kein Datentransport stattfindet. 

PROCEDURE PURGE 

(dateiname: STRING) 

Wenn die angegebene Datei existiert, so 
wird sie gelöscht. 
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Beispiel: 

PURGE(’istschon.da’); 

(• loeschen falls da •) 

RE WRITE (datei,’istschon.da’); 

(• neu anlegen •) 

READ, READLN, WRITE, WRITELN, 
GET, PUT, PAGE, EOF, EOLN arbeiten 
wie im UCSD-PASCAL. 

PROCEDURE CLOSE(datei:FILE); 
PROCEDURE CLOSE 
(datei: FILE ;LO CK); 

PROCEDURE CLOSE 
(datei :FILE;PURGE); 

Die Datei wird zunächst geschlossen. 
Der Pointer „dateit“ ist danach Undefi¬ 
niert. Bei den ersten beiden Varianten 
wird die Datei geschlossen und bleibt 
auf der Disk erhalten. Bei der letzten 
Form wird die Datei gelöscht. Wird CLO¬ 
SE in einem Programm nicht verwendet, 
so werden die Dateien nach Pro¬ 
grammende automatisch geschlossen. 

FUNCTION FILEBUSY 
(datei:FILE) : BOOLEAN; 

Wirkt ähnlich wie UNITBUSY im UCSD- 
PASCAL. Es muß eine Datei mit CRT: 
oder CONSOLE: vorliegen. Der Wert 
der Funktion ist TRUE, wenn keine Da¬ 
ten von der Konsole anliegen. 
PROCEDURE FILEREAD(datei:FILE; 
feld:PACKED ARRAY OF 
länge:INTEGER; [reladr:INTEGER]); 
PROCEDURE FILE WRITE ( ...); 

Hier ist ein Direktzugriff auf Dateien des 
Typs „untyped“ möglich, wie im UCSD- 
PASCAL mit UNITREAD und UNIT- 
WRITE. Mit IORESULT kann wie im 
UCSD-PASCAL eine Fehlernummer ge¬ 
holt werden. 

Eine Random-Datei-Verwaltung ist 
ebenfalls möglich. Die Dateien müssen 
aber eine „Nicht-Text-Datei“ sein. 
FUNCTION SIZE(VAR f : FILE OF 
irgend_ein_Typ ): INTEGER; 


Als Ergebnis wird die Anzahl der in der 
Datei vorhandenen Elemente eine offe¬ 
ne Datei übergeben. 

FUNCTION NEXT(VAR f : FILE OF 
irgencLein_Typ) : INTEGER; 

Von einer geöffneten Datei kann die Po¬ 
sition des Datei-Zeigers als Ergebnis er¬ 
halten werden. Der Wert liegt im Be¬ 
reich (0.. SIZE(f)-l) und stellt die Kardi¬ 
nalzahl für den nächsten Datei-Record 
dar, der mit GET oder PUT angespro¬ 
chen wird. 

PROCEDURE SET_NEXT 
(VAR f : FILE OF irgen(Lein_Typ; 
pos : INTEGER); 

Damit kann der Datei-Zeiger auf eine be¬ 
liebige Stelle von Dateien gesetzt wer¬ 
den. Die Records einer datei werden von 
0 bis SIZE(f)-l durchnumeriert. Wird 
der Zeiger außerhalb der Datei positio¬ 
niert, so wird EOF(f) TRUE. 


2.2.4 Diverse Befehle 

Neben den beiden Kommentarklam¬ 
mern (• •) und {} gibt es im PASCAL/M 
auch noch eine andere Möglichkeit, 
Kommentare zu bilden: 

- - Kommentar 

Der Kommentar beginnt mit den beiden 
Zeichen - - und endet mit dem Zeilen¬ 
wechsel. Dies ist eine Darstellung, wie 
sie auch in ADA [13] verwendet wird. 

Die Funktionen SIZEOF, LOG, PW- 
ROFTEN, EXIT, HALT MARK, RELEA¬ 
SE entsprechen denen des UCSD-PAS- 
CALS. 

FUNCTION MEMAVAIL: INTEGER; 
Mit dieser Funktion läßt sich der ver¬ 
bleibende Speicherplatz bei der Aus¬ 
führung ermitteln. 

FUNCTION RANDOM 
(seed: INTEGER): REAL; 

Als Ergebnis wird ein Wert zwischen 
0.00 und 1.00 geliefert. Wenn die Varia- 
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ble „seed“ 0 ist, so wird die nächste Zu¬ 
fallszahl in der Sequenz geliefert. Mit ei¬ 
nem anderen Wert startet die Sequenz 
erneut und die Zahlangabe bestimmt, 
mit welchem Wert angefangen wird. 
PROCEDURE TIME 
(uhrzeit, datum : STRING); 

In „uhrzeit“ steht die aktuelle Zeit in der 
Form ’HH: MM: SS’ und in „datum“ ’mm/ 
dd/yy’. Die Werte werden dabei aus 
Speicherzellen entnommen, die von ei¬ 
nem eigenen Programm verwaltet wer¬ 
den müssen: 

10H=mm, llH=dd, 12H = yy, 
13H = hh, 14H=mm, 15H = ss. 

Ähnlich wie im UCSD-PASCAL gibt es 
hier auch einen Long-Integer, der aller¬ 
dings anders definiert wird und auch an¬ 
dere Eigenschaften besitzt. Die Angabe 
erfolgt mit dem reservierten Wort 
LONG_INTEGER. 

Beispiel: 

VAR 

lang : LONG_INTEGER; 

Der größte Wert bei einem Standard-In¬ 
teger ist MAXINT (32 767); bei einem 
Long-Integer ist er MAXLINT = 
2147483647. 

Ist ein Long-Integer nicht größer als 
MAXINT, so kann er direkt an einen In¬ 
teger zugewiesen werden. Long-Integer 
können an allen Stellen, wo auch Inte¬ 
ger erlaubt sind, verwendet werden. Die 
Umwandlung zwischen verschiedenen 
Integer wird automatisch vorgenom¬ 
men, außer wenn sie aufgrund des Be¬ 
reichs nicht möglich ist. 


2.2.5 Konsol-Verarbeitung 
Um einfach mit der Konsole arbeiten zu 
können, gibt es eine Reihe von anpaßba¬ 
ren Prozeduren, die eine komfortable 
Programmierung ermöglichen. Die An¬ 
passung erfolgt in einem Programmpa¬ 
ket CONSTRL.ASM, das nach den Un¬ 


terlagen des PASCAL/M an eine vorhan¬ 
dene Konsole adaptiert werden muß. 
Die Programmierung ist dabei in Assem¬ 
bler. Danach stehen folgende Prozedu¬ 
ren zur Verfügung: 

PROCEDURE CONACT 
(zahl: INTEGER); 

Je nach dem Wert von „zahl“ ist eine der 
folgenden acht Funktionen möglich: 
CONACT(0) 

Bildschirm löschen 

und Cursor in die Home Position 

CONACT(l) 

Löschen der aktuellen Zeile 
beginnend bei Cursor 
CONACT(2) 

Cursor eine Zeile nach oben 
CONACT(3) 

Cursor eine Zeile nach unten 
CONACT(4) 

Cursor ein Zeichen nach links 
CONACT(5) 

Cursor ein Zeichen nach rechts 
CONACT(6) 

Löschen des Zeichens 
an der Cursor-Stelle 
CONACT(7) 

Einfügen eines Leerzeichens 
an der Cursor-Stelle 
PROCEDURE GOTOXY 
(xkoord,ykoord : INTEGER); 

Der Cursor wird wie beim UCSD-PAS- 
CAL an xkoor,ykoor gesetzt. 
PROCEDURE READXY 
(VAR xkoord,ykoord : INTEGER); 

Die aktuelle Position des Cursors läßt 
sich damit ermitteln. 0,0 ist dabei in der 
linken Ecke oben. 

PROCEDURE SCREEN 
(VAR datei:FILE; 

VAR zeile, spalte :INTEGER); 

Die Anzahl der verfügbaren Zeilen und 
Spalten wird in „zeile“ und „spalte“ ge¬ 
stellt. Die Werte von CONSOLE:, CRT: 
und CON: sind in CONSTRL.ASM ein- 
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gestellt. Für andere Dateien gilt die Prin¬ 
ter Definition in CONSTRL.ASM. 


2.2.6 Weitere Fähigkeiten 
In der CASE-Anweisung kann mit dem 
neuen Begriff OTHERWISE der Fall ab¬ 
gefangen werden, wenn keiner der ein¬ 
zelnen Fälle zutrifft. 

Beispiel: 

CASE X OF 
1: WRITE(l); 

2: WRITE(2); 

3: WRITE(3) 

OTHERWISE 
WRITE(’nicht 1 bis 3’) 

END 

Segment-Prozeduren können wie im 
UCSD-PASCAL aufgebaut werden. 

Um Maschinenprogramme mit ver¬ 
wenden zu können, gibt es die Möglich¬ 
keit mit EXTERNAL zu arbeiten. EX- 
TERNAL wird wie FORWARD angege¬ 
ben. Außerdem ist es möglich, die Ma¬ 
schinenunterprogramme zu numerie¬ 
ren. 

Beispiel: 

PROCEDURE 
maschine (X : INTEGER); 
EXTERNAL 1; 

Das Maschinenunterprogramm wird in 
Assembler geschrieben und muß mit ei¬ 
nem festgelegten Kopf beginnen. 

DB Anzahl der vorhandenen 
Prozeduren 

DW Start des Maschinen¬ 
programms 

JMP Sprung auf die Prozedur 1 
JMP Sprung auf die Prozedur 2 

Start der einzelnen Programme 
Parameter werden im Maschinenstack 
übergeben. Dabei liegt der erste Parame¬ 
ter des Prozedurkopfes im tiefen Teil des 
Stacks. Der letzte Parameter kann mit ei¬ 
nem POP-Befehl zuerst geholt werden. 


Beispiel: 

PROCEDURE 

maschinef a,b,c : INTEGER; 

VAR d : REAL); 

der Stack sieht dann wie folgt aus: 

Adresse von d 
Wert c 
Wert b 
Wert a 

Als erstes kann mit einem POP-Befehl 
die Adresse des Wertes d geholt werden. 
Nur eine Adresse, da es sich um einen 
VAR-Parameter handelt. Die Darstel¬ 
lung der einzelnen Variablen ist wie 
folgt: 

Integer: 

Byte 1 Byte 2 

im Zweierkomplement 

-Rest des Stacks- 

Real-Format: 
ml exp 

m2 m3 

-Rest des Stacks- 

Dabei sind ml bis m3 die Mantisse und 
exp der Exponent. Die Darstellung des 
Exponents ist je nach Version folgender¬ 
maßen: 

exp = Meeeeeee Standard 
mit M=Mantissenvorzeichen 
e=Exponentenstelle (+bias) 
exp = MEeeeeee bei AM 9511 Version 
E =Exponentenvorzeichen 
Long_Integer: 

Byte3 Byte4 

Bytel Byte2 

-Rest des Stacks- 

Pointer: 

Bytel Byte2 

-Rest des Stacks- 

Char: 

00000000 Zeichen 8 Bit-Daten 

-Rest des Stacks- 

Das Maschinenprogramm wird beim 
Start des PASCAL-Programms durch 
Angabe eines Parameters mitgeladen. 
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Das Programm wird als Datei.EXT abge¬ 
legt. Beispiel: 

A)PRUN pascalprogramm 

3m=maschinenprogramm 
PRUN ist dabei der Interpreter. 

Weitere Aspekte sind in dem Manual 
[10] nachzulesen. 


2.3 PASCAL/Z 

PASCAL/Z ist ein Compiler, der auf dem 
CP/M-Betriebssystem läuft [3,11] und ei¬ 
nen Z80 als Prozessor benötigt. Dieser 
Compiler erzeugt keinen P-Code, son¬ 
dern direkt Z80-Maschinenbefehle. Der 
Compiler besitzt einige interessante 
Vorteile. Der Code ist ROMABLE, das 
heißt, er kann in einem Festwertspei¬ 
cher abgelegt werden und er ist reen- 
trant, dies ist wichtig für Multitasking 
oder einfachen Interrupt-Betrieb. Der 
erzeugte Code kann sehr klein sein (ei¬ 
nige 100 Bytes). Es wird ein Z80-Assem- 
blercode erzeugt, so daß Optimierungen 
von Hand auch möglich sind. PASCAL/ 
Z besitzt auch Erweiterungen wie bei 
den UCSD-Varianten. Es gibt einen 
String-Typ, Direkt-Zugriff auf Dateien, 
damit ist es möglich, skalare Typen (sie¬ 
he 1.4.1) auch in der WRITE-Anweisung 
direkt auszugeben; es erscheint der 
symbolische Name als Ausgabe. Funk¬ 
tionen können auch strukturierte Typen 
als Ergebnis zurückliefern. PASCAL/Z 
besitzt auch ein paar Einschränkungen, 
so ist z. B. GET und PUT nicht imple¬ 
mentiert. Prozeduren oder Funktionen 
können nicht als Parameter verwendet 
werden (dies ist auch im UCSD-PASCAL 
nicht möglich). Die Speicherverwaltung 
wird mit den Funktionen NEW, MARK 
und RELEASE ausgeführt und nicht mit 
NEW und DISPOSE (ebenfalls wie im 
UCSD-PASCAL). Das System sollte 64K 


Bytes besitzen, um vernünftig mit dem 
PASCAL arbeiten zu können (48K bis 
56K mindestens). 

2.3.1 Skalare Daten-Typen 

Eine interessante Erweiterung ist die 
folgende: 

TYPE 

färbe = ( rot, gruen, blau ); 

VAR 

farbart : färbe; 

Es wird der neue Typ „färbe“ definiert; 
„farbart“ ist eine Variable, die die Werte 
rot, grün und blau annehmen kann. In 
PASCAL/Z ist nun folgende Anweisung 
möglich: 

WRITE (farbart); 
oder WRITELN(farbart); 

Besitzt „farbart“ den Wert „gruen“, so 
erscheint der Text GRUEN auf dem Bild¬ 
schirm. Dies ist im Standard-PASCAL 
nicht möglich. 

2.3.2 String-Verarbeitung 

Ein String wird mit dem reservierten 
Wort STRING definiert. 

Beispiel: 

VAR 

name : STRING 80; 

Es wird die Variable „name“ definiert, 
die ein String mit maximal 80 Zeichen 
sein kann. Die maximale Angabe kann 
255 sein. Eine eingebaute Prozedur er¬ 
möglicht es, einen String an einen ande¬ 
ren anzufügen. 

APPEND(name, ’ MUELLER’); 

Der String ’ MUELLER’ wird an den 
String „name“ angehängt. Es gibt noch 
ein paar andere String-Funktionen, die 
in einer Bibliothek vorhanden sind, aber 
zuvor im PASCAL-Programm definiert 
werden müssen. 

TYPE 

SSTRING0 = STRING 0; 
$STRING255 = STRING 255; 
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FUNCTION LENGTH 
(x : $STRING255) : INTEGER; 
EXTERN AL; 

FUNCTION INDEX 

(x,y : $STRING255) : INTEGER; 
EXTERN AL; 

PROCEDURE SETLENGTH 
( VAR x : $STRING0; 
y : INTEGER); EXTERN AL; 

Mit LENGTH läßt sich die aktuelle Län¬ 
ge eines Strings ermitteln, INDEX liefert 
die Stelle in einem String x, bei der der 
Teilstring y gefunden wurde, ansonsten 
0. Mit SETLENGTH läßt sich die aktuel¬ 
le Länge eines Strings x auf y setzen. 

Bei Stringvergleichen darf auf der lin¬ 
ken Seite keine String-Konstante er¬ 
scheinen. Es ist möglich mit einem In¬ 
dex, der in eckigen Klammern angege¬ 
ben wird, ein einzelnes Zeichen in ei¬ 
nem String anzusprechen. 

name[n] 

Es wird das n-te Zeichen angesprochen, 
n muß dabei zwischen 1 und der maxi¬ 
malen Länge von „name“ liegen. 


2.3.3 Datei-Verarbeitung 
Die Funktionen RESET und REWRITE 
sind verfügbar und im Prinzip genauso 
definiert wie im UCSD-PASCAL, nur daß 
bei RESET der Dateiname nicht wegge¬ 
lassen werden darf und die Reihenfolge 
von Dateinamen und Dateivariable ver¬ 
tauscht ist. Beispiel: 

RESET(’A: TEXT.DAT’, datei); 

RE WRITE(’LST:’,dateil); 

Die Definition des Dateinamens ent¬ 
spricht der von CP/M. Als Gerät kann 
auch CON: und LST: verwendet wer¬ 
den. 

GET und PUT existieren nicht, wohl 
aber READ, WRITE, RE ADLN und WRI- 
TELN, gemäß dem Standard. In der Pro¬ 


grammüberschrift darf INPUT und 
OUTPUT nicht angegeben werden, also 
PROGRAM name; 

ist eine gültige Überschrift. Es dürfen 
auch Dateivariablen nicht in der Über¬ 
schrift erscheinen. Das Syntaxdia¬ 
gramm sieht daher wie folgt aus: 
PROGRAM programmname ; 
block. 

In PASCAL/Z ist es auch möglich, einen 
Direkt-Zugriff durchzuführen. Dazu 
wurde die Syntax für READ und WRITE 
erweitert. 

WRITE ( datei variable : 
rekordzahl, rekordvariable); 
und READ( dateivariable : 

rekordzahl, rekordvariable); 
Beispiel: Es soll an den 30ten Rekord der 
Datei „datei“ der Inhalt des Rekords r ge¬ 
schrieben werden. 

WRITE(datei: 30,r); 

1 ist dabei der erste Rekord einer Datei. 
Der Random-Access ist nur mit einer 
CP/M-Version 2.0 aufwärts möglich. 


2.3.4 Diverse Befehle 
Die CASE-Anweisung kann wie bei 
PASCAL/M durch OTHERWISE, hier 
durch einen ELSE-Teil ergänzt werden. 
Also z. B.: 

CASE farbvariable OF 
rot: rotauswertung; 
gruen: gruenauswertung; 

ELSE: restauswertung 
END; 

Einführen von Maschinenunterpro¬ 
grammen: 

Dies geschieht mit der EXTERNAL-An- 
weisung, die schon vorher einmal ver¬ 
wendet wurde. Beispiele: 

FUNCTION mix 

(parl,par2 : färbe): färbe; 
EXTERNAL; 
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B> t y pe t e st, po. s. p a s 
P r o g r a n t e s t j 
v o. r 

i: integ e r; 

fu n c tio n facti:integer):inte g e rj 
b e g i n 

i f i = 0 t h e n f a c : = 1 
eise fac := fact'i-l)*i 

e n d j 


b e g i n 

w r i t e 1 n (’ F a k u 11 a e t •' ) ; 
f o r i: = 1 t o 6 d o 

w r i t e 1 n (' f a c v o n ’ , i, * 

e n d. 


Abb. 2.3.4-1 
Beispielprogramm 
für PASCAL/Z 


Abb. 2.3.4-2 
Übersetzerstart 


p a sc a1 testpas.bbb 
I nte rS v s t e ws Pas ca1 y e r 3.2-1 
TEST 1- 

FflC 5-- 

TEST 12- 


B>type testpas.lst 




Page 1 

1 

P r o g r a et t e s t j 


1 

v a r 


1 

1 

i : integer; 


i 

f u n c t i o n f a c (i: i n t e g e 

r 3 : i n t e g e r ; 

1 

b e g i n 


1 

if i = 0 then f 

ac : = 1 

3 

eise f a c : = 

fac(i-l)*i 

4 

e n d ; 


4 



4 


Abb. 2.3.4-3 

i 

4 

b e g i n 

Ausgabeprotokoll 

4 

writelnt’Fakultaet 5 3 


5 

f o r i : = 1 t o 6 d o 


6 

w r i t e 1 n ( M ac y o n ’ 

5 i, ’ ist ’ j f o. c ( i 3 3 


7 e n d. 
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type 

t e s t p a s. 

s r c 

LI 38 




EN TR 

0,2,0 


STMT 

0, 1 


MOV 

L,8(IX) 


MOV 

H , 9 ( IX) 


MOV 

0, fl 


MOV 

E,fl 


08 B1 

0,0 


JNZ 

LI 48 


STMT 

0,2 


MOV 

3(IX ) , fl 


MV I 

2 (IX) , x 


•JMP 

LI 53 

LI 40 




STMT 

0,3 


MOV 

L, 8 (IX ) 


M 0 V 

H, 9(IX) 


OCX 

H 


PUSH 

H 


CflLL 

LI 38 


STMT 

M, 3 


MOV 

L, 8 (IX) 


MOV 

H,9(IX) 


MULT 

0,0 


MOV 

3 (IX) , H 


MOV 

2 (IX) , L 

LI 53 




EX IT 

0,2 

L99 




ENTR 

0,1,2 


STMT 

0,4 


JR 

L174 

LI 73 




DB 

’ t e a 11 u k o. F ’ , 18 

L 1 74 




LXI 

H, 769 


PUSH 

H 


LXI 

B 5 1 0 Abb. 2.3.4-4 


PUSH 

B Erzeugter Assembler-Code 


LXI 

H , - 1 0 


OfiOO 

S 


SP HL 



XCHG 
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L 1 8 3 


LI 97 


Li 98 


L21 1 


LXI 

H» L173 + 0 

LXI 

B, 10 

LDIR 


LXI 

B, 14 

CflLL 

LI 09 

STMT 

M, 4 

STMT 

0,5 

MOV 

0(IY) , fl 

«VI 

- 1 (I Y) , 1 

PUSH 

IY 

LXI 

H,6 

XTHL 


MOV 

D, M 

0 C X 

H 

MOV 

E,M 

XTHL 


PUSH 

H 

GE 

D, 0 

JNC 

L1 84 

STMT 

D , 6 

JR 

LI 98 

OB 

5 ri o v c o. f 

LXI 

H, 769 

PUSH 

H 

LXI 

B, 8 

PUSH 

B 

LXI 

H, -8 

DflDD 

S 

SPHL 


XCHG 


LXI 

H j L197 + 0 

LXI 

6 ? 8 

LDIR 


LXI 

H, 522 

PUSH 

H 

MOV 

L, - 1 (IY ) 

MOV 

H, 0 (IY) 

PUSH 

H 

JR 

L 21 2 

DB 

’ t s i ’ , 5 


j 8 


zu Abb. 2.3.4-4 
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L212 



LXI 

H, 769 


PUSH 

H 


LXI 

B, 5 


PUSH 

B 


LXI 

H j -5 


DfiDD 

c 


SPHL 



XCHG 



LXI 

H»L211+0 


LXI 

B,5 


LDIR 



MOV 

L,-1(IY) 


MOV 

H,O £1Y) 


PUSH 

H 


CfiLL 

LI 38 


STMT 

M, 6 


PUSH 

D 


LXI 

H» 522 


XTHL 



PUSH 

H 


LXI 

B, 29 


CfiLL 

LI 09 


STMT 

M, 6 


CTRL 



POP 

H zu 


XTHL 



INR 

M 


I NX 

H 


JRNZ 

L 2 2 5 


INR 

M 


JV 

L 2 2 6 

L 22 5 




JMP 

L 1.83 

LI 84 




POP 

D 

L226 




POP 

0 


F I N I 



zu Abb. 2.3.4-4 
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ß>as i v i bl nairiitestpas.bb/re 1 

Pascal/Z run-1 ine support interf ace ftSMBLEv-5.j 


8 errors. 223 synbols generated. Space f'or 4327 more synbols. 
4027 c h aracters a r e st ored in 4 3 nacr os. 

579 byt es of progran Code, 
link /n s b:t e s t p a s bstestpas /e 
LINK Version 1 n 
Load no d e 

Gene r ate a C0M f i 1 e 

L o = 0108 Hi = 9 E D 5 Start = 0108 Save 14 b1o c k s 


Abb. 2.3.4-5 Assemblierung und Binden 


Abb. 2.3.4-6 Starten des 
eigentlichen Programms 


t e s t p o. s 



Fakultaet 



f a c v o n 

1 ist 

1 

f a c v o n 

2 ist 

o 

iL. 

f o. c v o n 

3 ist 

6 

f o. c v o n 

4 ist 

24 

fac von 

5 ist 

120 

f a c v o n 

& ist 

720 



TESTPflS 

BfiK 

1K 

Abb. 2.3.4-7 

TESTPfiS 

COM 

4K 

Diskettenprotokoll 

TESTPflS 

IST 

1K 

der Dateien 

TESTPflS 

PflS 

1K 


TESTPflS 

P.EL 

2K 


TESTPflS 

SRC 

2K 


Das dazugehörige Assemblerprogramm 
sieht dann wie folgt aus: 

ENTRY mix ;name für den Linker 
mix: pop h ;rücksprungadresse 

pop d ;holen von parl,par2 

mov a,e 
addd 
mov e,a 
xra a 

mov d,a ;ergebnis in de 

pchl ;rücksprung 

Hierzu gibt es noch viel zu sagen, was 
aber den Umfang des Buches sprengen 
würde, siehe dazu [3,4,11]. 

Eine Segment-Prozedur gibt es nicht, 
aber einen ähnlichen Mechanismus um 


Programm nachladen zu können. Mit 
der nachfolgenden Anweisung kann ei¬ 
ne Verkettung (chain) von Programmen 
durchgeführt werden: 

FTXTIN( programmname ); CHAIN; 
Der Programmname kann ein String in 
Anführungszeichen oder ein Feld vom 
Typ ARRAY [ 1.. n ] OF CHAR sein. Beim 
Linker muß dann der CHAIN-Modul, 
der in der Bibliothek steht, dazugebun¬ 
den werden. Es soll hier einmal gezeigt 
werden, wie ein kompletter Überset¬ 
zungsvorgang durchgeführt wird. Abb. 
2.3.4-1 zeigt das Quellprogramm und 
Abb. 2.3.4-2 die Ausgabe bei dem Über¬ 
setzungsvorgang, die auf der Konsole er- 
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scheint. Es wird dabei ein Listing auf 
Diskette erzeugt, wie es Abb. 2.3.4-3 dar¬ 
stellt. Gleichzeitig wird die Assembler¬ 
source erzeugt. Diese ist in Abb. 2.3.4-4 
abgebildet. Es sind einige Makros ver¬ 
wendet, die in einer Bibliothek vorhan¬ 
den sind. Es wird dann der Assembler 
gestartet und anschließend der Binder 
(Linker), der noch einige Unterprogram¬ 
me aus einer Bibliothek dazubindet. 
Abb. 2.3.4-5 zeigt den Ablauf; in Abb. 
2.3.4-6 ist schließlich der Gesamtablauf 
des Programms abgebildet. Das Pro¬ 
gramm wird durch Angabe seines Na¬ 
mens (testpas) gestartet und ist als 
COM-Datei abgelegt [3]. Wie ein Über¬ 
setzer arbeitet ist in [5] beschrieben. 
Abb. 2.3.4-7 zeigt die Dateien. 


2.4 PASCAL/MT 

PASCAL/MT [12] ist ebenfalls ein Com¬ 
piler, der Maschinencode erzeugt. Er ist 
speziell für System-Programme geeig¬ 
net. Der Compiler läuft unter CP/M[3] 
in minimal 32K Bytes (Version 3.0). Es ist 
ein symbolischer Debugger vorhanden, 
mit dem es möglich ist, die Programme 
komfortablel zu testen. Das erzeugte 
Programm benötigt einen minimalen 
Platz von 1.2 5K Bytes. CP/M-Dateizugriff 
ist auf der Block-Ebene möglich. Assem¬ 
bler-Code kann direkt in die PASCAL- 
Programme geschrieben werden. Es 
kann zwischen einem Standard-Gleit¬ 
kommapaket oder einem BCD-Festkom- 
mapaket gewählt werden. Einige Nach¬ 
teile sind, daß Mengen nicht verfügbar 
sind und GET und PUT nicht vorhanden 
ist. Will man rekursive Funktionen oder 
Prozeduren anwenden, muß dies durch 
einen besonderen Befehl erst ermög¬ 
licht werden. 


2.4.1 Maschinenprogramme 
Mit einer EXTERNAL-Anweisung kön¬ 
nen externe Maschinenunterprogram¬ 
me aufgerufen werden. Es können maxi¬ 
mal drei Parameter an das Unterpro¬ 
gramm übergeben werden. Dies ge¬ 
schieht in den Registern BC DE und HL. 
Wird ein Parameter mit VAR angegeben, 
so wird die Adresse übergeben. 
Beispiel; 

PROCEDURE EXTERNAL[5] BDOS 
(funktion : INTEGER; 

VAR adresse : INTEGER); 
PROCEDURE EXTERNAL[$FC00] 
motor(n,pos : INTEGER); 

Eine andere Möglichkeit ist es, direkt 
Assemblerprogramm in den PASCAL- 
Quell-Text einzufügen. Dazu steht die 
INLINE-Prozedur zur Verfügung. Mar¬ 
ken sind auch möglich. Beispiel: 
PROCEDURE demo_inline; 

VAR 


i : INTEGER; 

BEGIN 

INLINE( [marke] ”lxi h /$fc00/ 
”shld /i/ 

”lda /$f000/ 


”ora a 

”jnz /marke/ ); 


END; 

Mit dem Befehl INLINE lassen sich auch 
Felder vorbelegen. Dazu gibt es noch ei¬ 
ne Funktion ADDR( ) mit der sich die 
Adresse von Marken oder anderen Ob¬ 
jekten bestimmen läßt. Die 8080-Befehle 
sind in [3,4] ausführlich beschrieben. 


2.4.2 Datei-Verarbeitung 
Die Prozeduren READ, READLN, WRI- 
TE und WRITELN sind für die Konsole 
definiert, nicht aber für Dateien. Nur bei 
WRITE und WRITELN kann eine Aus¬ 
gabe auf den Drucker verlangt werden: 
WRITE (PRINTER, 

’ Ausgabe auf Drucker ’); 
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Für den Diskettenzugriff gibt es speziel¬ 
le Prozeduren: 

OPEN (fcbname,titel,ergebnis); 

OPEN (fcbname,titel,ergebnis, 
extent_zahl); 

CLOSE(fcbname,titel,ergebnis); 

DELETE(fcbname); 

BLOCKREAD 

(fcbname,buffer,ergebnis); 

BLOCKREAD 

(fcbname,buffer,ergebnis, 

relativblock); 

BLOCKWRITE 
(fcbname,buffer,ergebnis); 

BLOCKWRITE 

(fcbname,buffer,ergebnis, 

relativblock); 

Dabei ist 

fcbname: eine Variable vom typ TEXT 
oder FILE 

titel: ARRAY [0..1] OF CH AR; 

titelfO] = disk auswahlbyte; 

(• 0= aktuelle Login-Drive 
1= Drive A: ,2= Drive B: ... •) 
titelfl] .. [8] = dateiname 
mit 8 Zeichen 
titel[9] .. [ll] = extension 
mit 3 Zeichen 

ergebnis: Wert der vom BDOS 
zurückgeliefert wird 
(siehe CP/M [3]) 

buffer: Start eines 128 Byte Feldes 

(norm. ARRAY ... OF CH AR) 
relativblock: 

Integerzahl 0..255 
für Direktzugriff. 

Eine Variable vom Typ TEXT oder FILE 
ist hier ein feld 0.. 35 OF CH AR und ent¬ 
spricht den BDOS-Definitionen für Da¬ 
tei-Verwaltung. 


2.4.3 Diverse Befehle 
Es gibt in PASCAL/MT einige Operatio¬ 
nen, die eine schnelle Ausführung von 
speziellen Aufgaben ermöglichen. 


PROCEDURE MOVE 
(quelle,ziel : feldname oder 
Integer; länge : INTEGER); 

Der Feldname oder Integer wird als Zei¬ 
ger für das Ziel oder die Quelle verwen¬ 
det. 

PROCEDURE EXIT 

Die aktuelle Prozedur oder Funktion 
wird verlassen. 

PROCEDURE TSTBIT 

(zahl : lßbitvariable; 

bitnr : INTEGER):BOOLEAN; 

Als lßbitvariable kann ein Typ INTE¬ 
GER, CHAR oder BOOLEAN treten. Die 
„bitnr“ kann von 0 bis 15 reichen. 

PROCEDURE SETBIT 
(VAR zahl : lßbitvariable; 
bitnr : INTEGER); 

Das entsprechende Bit in „zahl“ wird ge¬ 
setzt. 

PROCEDURE CLRBIT 
(VAR zahl : lßbitvariable; 
bitnr : INTEGER); 

Das Bit an der Stelle „bitnr“ wird zurück- 
gesetzt. 

FUNCTION SHR 

(zahl : lßbitvariable; 

bitnr: INTEGER) : lßbitvariable; 

FUNCTION SHL 

(zahl : lßbitvariable; 

bitnr : INTEGER) : lßbitvariable; 

Hiermit ist ein Links- oder Rechtsschie¬ 
ben möglich. 

FUNCTION LO 

(zahl : lßbitvariable) : lßbitvariable; 
Die niederwertigen 8 Bits werden als Er¬ 
gebnis übermittelt. 

FUNCTION HI 

(zahl : lßbitvariable) : lßbitvariable; 
Die höherwertigen 8 Bits werden in die 
unteren 8 Bits gestellt. 

FUNCTION SWAP 
(zahl : lßbitvariable) : lßbitvariable; 
Die unteren 8 Bits werden mit den hö¬ 
herwertigen 8 Bits vertauscht. 
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FUNCTION ADDR 
(name : Variablenreferenz) 

: lßbitvariable; 

Die Maschinenadresse der Variablen 
läßt sich damit ermitteln. Es können 
auch Prozedur-, Funktions- indizierte- 
Variablen oder Rekordnamen verwen¬ 
det werden. 

PROCEDURE WAIT 
(portnummer : constante; 
maske : constante; polaritaet : 
BOOLEAN); 

Dadurch wird folgender Kode erzeugt: 
IN portnummer 
ANI maske 
I?? $-4 

?? ist Z wenn die Polarität FALSE ist 
?? ist NZ wenn die Polarität TRUE ist. 
FUNCTION SIZEOF 
(name : variablen oder 
typname) : INTEGER; 

Die Anzahl der von „name“ belegten Va¬ 
riablen wird ermittelt. Damit läßt sich 
die NEW-Funktion nachbilden, die stan¬ 
dardmäßig nicht vorhanden ist. 

VAR heappointer : INTEGER; 
p : t Symboltabelleneintrag; 

(• neuen Pointer aufbauen •) 
p := heappointer; 
heappointer := heappointer + 
SIZEOF(symboltabelleneintrag) 


2.4.4 Debugger 

Ein symbolischer Debugger kann beim 
Austesten von PASC AL/MT-Program¬ 
men verwendet werden. Wird normaler¬ 
weise ein PASCAL-Programm getestet, 
so werden WRITELN-Anweisungen in 
die Quelle geschrieben, um z. B. ver¬ 
schiedene Variablen-Werte während 
des Programmlaufs auszugeben. Mit 
dem symbolischen Debugger ist es in 
PASCAL/MT möglich, sich die Werte 
auch ohne Veränderung der Source zu 


beschaffen. Auch kann ein Einzelschritt 
und Tracelauf durchgeführt werden. Bei 
der Übersetzung muß angegeben wer¬ 
den, ob der Debugger mit eingebunden 
werden soll oder nicht. 

Go mit optionalem Breakpunkt 
Die Programmausführung kann bis zu 
einem bestimmten Breakpunkt fortge¬ 
setzt werden. Der Breakpunkt wird 
durch Angabe einer Zeilennummer 
oder den Prozedur- oder Funktionsna¬ 
men angegeben. 

Trace 

Ein oder mehrere Zeilen werden ausge¬ 
führt. 

Prozedur- und Funktionenanzeige 
Es ist möglich, alle aufgerufenen Funk¬ 
tionen oder Prozeduren anzuzeigen. 
Weitere Befehle ermöglichen es, zwi¬ 
schen einer langsamen bis schnellen 
Ausführung zu wählen, um die aufgeru¬ 
fenen Prozeduren oder Funktionen, de¬ 
ren Namen ja auf dem Bildschirm er¬ 
scheinen, optimal verfolgen zu können. 

Ein permanenter Breakpoint kann 
auch gesetzt werden, so daß es möglich 
ist, den Programmablauf immer an der 
gleichen Stelle zu stoppen. 

Eine der wichtigsten Möglichkeiten 
ist es, Variablenwerte ausgeben zu kön¬ 
nen. Beispiele: 

D I Ausgeben des Wertes 

der globalen Variablen I 

D A:I Ausgabe des Variablen¬ 
wertes I, der in der Funktion 
oder Prozedur A bekannt ist. 

D Fl Wert der Funktion Fl 
ausgeben 

Bei Feldern wird automatisch nach dem 
Index gefragt. 

Alles in allem ist auch PASCAL/MT eine 
interessante Version für Mikrorechner 
und es ist schon eine neue Release ange¬ 
kündigt, bei der weitere Standard-Be¬ 
fehle von PASCAL implementiert sind. 
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3 Anhang 


3.1 Syntaxdiagramme 

PASCAL läßt sich durch Syntaxdiagram¬ 
me sehr anschaulich definieren. In Abb. 

3.1.1 sind alle Syntaxdiagramme der 


Sprache abgedruckt. Die Beschreibung 
des Gebrauchs ist in Abschnitt 1.2.1 zu 
lesen. 




Ganze Zahl Vorzeichenlos 


Ziffer 




Konstante Vorzeichenlos 



Abb. 3.1-1 Syntaxdiagramme zu PASCAL 
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Konstante 



einfacher Typ 
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Abb. 3.1-1 Syntaxdiagramme zu PASCAL 




















































































































3.1 Syntaxdiagramme 


Variable 




Abb. 3.1-1 Syntaxdiagramme zu PASCAL 
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3 Anhang 









































































































3.1 Syntaxdiagramme 


Anweisung 



Programm —»-(PROGRAM)—► 


Name 



1-0 


O—’ 


Abb. 3.1-1 Syntaxdiagramme zu PASCAL 
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Terminologie 


A 

ABS 

Der Absolutbetrag einer Zahl, 
z. B. ABS(-5)=ABS(5) 

AND 

Die logische Und-Funktion. Dabei können 
nur boolesche Argumente verwendet wer¬ 
den 

ARCTAN 

Die Unkehrfunktion von TAN. 

ARRAY 

Feld 

B 

BASIC 

Beginners All Purpose Symbolic Instruction 
Code, eine weit verbreitete niedere Program¬ 
miersprache 

BEGIN 

Start eines Blocks 
BOOLEAN 

eine Variable die nur zwei Werte annehmen 
kann, 0 oder 1 bzw. TRUE oder FALSE 

c 

CASE 

Möglichkeit um Fallunterscheidungen zu 
verwirklichen 

CHAIN 

Nachladen von Programmen 
nicht im Standard-Pascal 

CHAR 

Damit lassen sich Zeichen darstellen 
CHR 

Umkehrfunktion zu ORD(x) 

Compiler 

Übersetzer, der eine Sprache in einen Ma¬ 
schinencode übersetzt 


CONST 

Deklaration von Konstanten folgt 
COS 

Cosinusfunktion. Der Parameter wird als in 
Radiant gegeben interpretiert 

Cross-Assembler 

Ein Übersetzungsprogramm, das nicht auf 
dem Rechner läuft für das es Code erzeugt 

D 

Debugger 

Hilfsmittel zur Fehlersuche 
DISPOSE 

Freigabe von Speicherzellen 
DIV 

Ganzzahlige Division in Pascal. Ein entstan¬ 
dener Rest geht verloren 

DO 

Teil der WHILE-Anweisung 
Teil der FOR-Anweisung 
Blockanfang 

DOWNTO 

Teil der FOR-Anweisung für Rückwärts lau¬ 
fende Indizes 

E 

EDITOR 

Ein Programm zur Eingabe von Texten (Pro¬ 
grammen) 

ELSE 

Alternative bei der IF-Anweisung 
END 

Ende eines Blocks 
EOF 

Feststellen ob Dateiende vorliegt 
EOLN 

Prüft, ob das Zeilenende erreicht wurde 
EXP 

Exponentialfunktion 
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Terminologie 


F 

FILE 

Schlüsselwort für Datei 
Floppy 

flexibles magnetisches Speichermedium für 
kleine Systeme. Kapazität von 79 Kbyte bis 
5 Mbyte 

FOR 

Schleifenkonstruktion mit Indexvariable 
FORTRAN 

Eine Programmiersprache, die besonders für 
wissenschaftliche Berechnungen verwendet 
wird 

FORWARD 

Möglichkeit eine Prozedur anzukündigen oh¬ 
ne den detailierten Ablauf anzugeben 

FUNCTION 

Definition einer Funktion in Pascal 

G 

GET 

Lesen von einer Datei 
GOTO 

Sprunganweisung 

H 

Hardware-Compiler 

Eine Sprache die es ermöglicht, als ’Code’ ei¬ 
ne Hardware (Schaltungen) zu erzeugen 

I 

IF 

Bedingte Anweisung 
IN 

Eine Operation für Mengen, die entspricht 
dem bekannten ELEMENT VON 

INPUT 

Standard Eingabe 
INTEGER 

Ganze Zahlen im Bereich - n bis + n, wobei n 
die maximale Zahl ist, die darstellbar ist 


Interpreter 

Er führt einen Code (Sprache), der auf dem 
Rechner nicht vorhanden ist direkt aus (lang¬ 
sam) 

ISO-Pascal 

PASCAL-Standard, der einige Erweiterun¬ 
gen gegenüber der Version von Prof. Wirth 
enthält 

K 

Kommentar 

kann im Programm nach belieben eingefügt 
werden und soll häufig angewandt werden 

Konstante 

sind Werte, die sich beim Ablauf nicht än¬ 
dern 

L 

Lader 

Ein Programm, das ein vom Übersetzer er¬ 
zeugtes Objektprogramm für den Rechner 
startbereit macht 

LN 

natürlicher Logarithmus 
LOKALE Variable 

Variable, die nur in einem Bereich gültig 
sind, außerhalb des Bereiches nicht mehr 

M 

MARK 

Festhalten einer Position für nachfolgendes 
RELEASE 

MOD 

Modulo-Funktion in Pascal zur Ermittlung ei¬ 
nes Restes bei der Division 

N 

NEW 

Erzeugen eines neuen Objektes 
NOT 

Die logische Nicht-Funktion. NOT TRUE er¬ 
gibt FALSE 

o 

ODD 

Stellt fest, ob das Argument ungerade ist 
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Terminologie 


OF 

Teil der CASE-Anweisung 
OR 

Die logische Oder-Funktion. TRUE OR FAL- 
SE ergibt TRUE 

ORD 

Die Ordnungszahl des Arguments wird als Er¬ 
gebnis geliefert 

OUTPUT 

Standard Ausgabe 

P 

PACK 

Umwandlung von einer nichtgepackten Dar¬ 
stellung in eine gepackte Darstellung 

PACKED Aufforderung zur gepackten Dar¬ 
stellung 

PASCAL 

Die Programmiersprache PASCAL wurde 
von Prof. N. Wirth erfunden 

PASCAL/M 

Pascal Dialekt von Digital Marketing 
PASCAL/MT 

Pascal-Dialekt von MicroSYSTEMS, die jetzt 
auch einen ISO-Pascal-Compiler (PASCAL/ 
MT+) liefern 

PASCAL/Z 

Pascal-Dialekt von Ithaca Intersystems 
PL/1 

Höhere Programmiersprache 
PL/M 

Ein Abkömmling von PL/1 zur Programmie¬ 
rung von Mikrorechnern (Intel 8080) 

Platte 

Magnetisches Speichermedium, Kapazität 
von 5 Mbyte bis 300 Mbyte 

pointer 

Zeiger 

PRED 

Der Vorgänger bezüglich der Ordnungszahl 

PROCEDURE 

Unterprogramm 


PROGRAM 

Überschrift eines jeden PASCAL-Programms 
Prozedurname 

Name für ein Unterprogramm, das auch Pro¬ 
zedur genannt wird 

PUT 

Schreiben auf eine Datei 

R 

RANDOM 

Zufalls-Funktion, nicht im Standard-Pascal 

READ 

Einlesen 

READLN 

Eingabe bis zum Zeilenende 
REAL 

eine Gleitkommazahl 

records 

Datensätze 

Rekursion 

Der Aufruf einer Prozedur oder Funktion er¬ 
folgt direkt oder indirekt durch die Prozedur 
(Funktion) selbst 

RELEASE 

Freigabe von Speicherplatz bis zur von 
MARK festgelegten Position 

REPEAT 

Die Wiederholungsanweisung 
Reservierte Wörter 

Ein Name, der vom Programmierer nicht 
mehr verwendet wird 

RESET 

Zeiger auf Anfang einer Datei setzen 
Resident Assembler 

Ein Übersetzungsprogramm das auf dem glei¬ 
chen Rechner läuft für den es auch Code er¬ 
zeugt 

REWRITE 

Dateizeiger auf Anfang setzen 
ROUND 

Runden auf den nächsten ganzzahligen Wert 
ROND (3.5) = 4 
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Terminologie 


s 

Semantik 

Damit ist die Bedeutung von Sprachelemen- 
ten gemeint 

set 

Menge 

SIN 

Der Sinuswert. Der Parameter wird als Ra¬ 
diant interpretiert 

SQR 

Das Quadrat (nicht Wurzel) einer Zahl 
SQR (3) = 9 

SQRT 

Die Quadratwurzel einer Zahl. SQRT (4) = 2 
STRING 

Definition einer Zeichenkette (nicht Stan¬ 
dard-Pascal) 

string 

Zeichenkette 

subrange 

Unterbereich 

SUCC 

Der Nachfolger bezüglich der Ordnungszahl 
Syntaxdiagramme 

Dienen der Darstellung einer Syntax von ei¬ 
ner Programmiersprache 

Syntaxfehler 

Ein Fehler, der auftritt wenn die syntakti¬ 
schen Regeln nicht beachtet wurden (Syn¬ 
taxdiagramm) 

T 

Terminalsymbol 

Das Zeichen, welches der Übersetzer als 
Endezeichen im Zusammenhang mit der 
Syntax erkennt 

TO 

Teil der FOR-Anweisung 
Trennzeichen 

Symbole, die einen Namen vom anderen 
trennen 

TRUNC 

Abschneiden der Nachkommstellen. TRUNC 
(12.35) = 12 


TYPE 

Die Definition von Typen 

u 

UCSD-Pascal 

PASCAL-Version der University California 
San Diego 

Union 

Vereinigung 

UNPACK 

Umwandlung von einer gepackten Darstel¬ 
lung in eine nicht gepackte Darstellung 

V 

VAR 

Die Deklaration von Variablen folgt 
VAR-Parameter 

Die Übergabe von Werten erfolgt durch 
Übergabe einer Adresse 

Variablennamen 

Der symbolische Name für eine Variable 
(math) 

Vergleiche 

Operation, mit denen die Ordnungsrelation 
von Werten getestet werden kann 

W 

WHILE 

Schleifenkonstruktion mit Abbruchkriterium 
am Anfang 

WITH 

Abkürzungs-Operation für Record-Aufrufe 

WRITE 

Ausgabe 

WRITELN 

Ausgabebefehl mit nachfolgendem Wagen¬ 
rücklauf und Zeilenvorschub 

Z 

Zeiger 

Interne Darstellung, ist eine Adresse auf ei¬ 
nen Speicherplatz 

Zuweisung 

Der Inhalt von einer Speicherzelle wird in ei¬ 
ne andere übertragen 
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Weitere 

Franzis Elektronik-Fachbücher 


M i krocom putersysteme 

Selbstbau, Programmierung, 
Anwendung. 

Von Rolf-Dieter Klein 
2., verbesserte Auflage. 159 Sei¬ 
ten mit 133 Abbildungen und 11 
Tabellen. Lwstr-geb. DM 32- 
ISBN 3-7723-6382-2 


Kaum zu glauben, daß ein Mikro¬ 
computer im Selbstbau herge¬ 
stellt werden kann! Daß dieses 
Vorhaben glückte, hat der Autor 
bewiesen. Wie ein hinreichend 
ausgebildeter Elektroniker das 
nachvollziehen kann, wird in 
dem Buch hier dargestellt. 
Zunächst muß die Hardware ge¬ 
schaffen werden. Eingabetasta¬ 
tur, Mikroprozessor, Speicher 
verschiedener Art, Drucker, 
Sichtgerät, das alles muß zu ei¬ 
ner funktionierenden Einheit zu¬ 
sammengeschlossen werden. 
Und das geht. Es geht sogar mit 
preiswerten, modernen Teilen, 
die in den einschlägigen Fach¬ 
handlungen zu haben sind. 

Nun die Software. Da zeigt der 
Autor mehrere Möglichkeiten 
auf. Nicht etwa nur ein kleines 
Programm, das immer wieder 
stupide abläuft. Nein, ausführli¬ 
che Programme werden vorge¬ 
stellt, die zahlreiche Spiele, ma¬ 
thematische Aufgaben, wissen¬ 
schaftliche Probleme bearbeiten 
können. 

Als Abschluß und Höhepunkt 
fügt der Autor Anregungen hin¬ 
zu, selbst Programme zu schrei¬ 
ben und in dem eigenen Mikro¬ 
computer zu erproben. Was will 
man mehr? 


Pascal: Einführung - 
Programmentwicklung - 
Strukturen 

Ein Arbeitsbuch mit zahlreichen 
Programmen, Übungen und Auf¬ 
gaben. Von Jürgen Plate und 
Paul Wittstock. 395 Seiten mit 
178 Abbildungen. 

Lwstr-geb. DM 48,- 
ISBN 3-7723-6901-4 

Das Buch könnte auch die Pas¬ 
cal-Fibel genannt werden. 
Schritt für Schritt führt es den 
Leser in das Programmieren mit 
Pascal ein. Die Autoren haben 
sich echt in die Ahnungslosigkeit 
des Anfängers hineinversetzt. 
Sie bringen ihm das besondere 
Denken des routinierten Pro¬ 
grammierers bei. Das Verblüf¬ 
fende dabei ist, sie kommen mit 
einer einfachen klaren Sprache 
aus, verabscheuen das EDV- 
Chinesisch, setzen nichts vor¬ 
aus, können wunderbar erklä¬ 
ren. Wer sich an dieses Buch 
heranmacht, meint, es gäbe 
nichts einfacheres als Pascal. 

Aus dem Inhalt: 

Einführung. Elemente von Pas¬ 
cal, Grundlagen. Einfache Kon¬ 
trollstrukturen. Variable, Kon¬ 
stante und Arithmetik. Eingabe 
und Ausgabe. Programment¬ 
wicklung. Prozeduren und Funk¬ 
tionen (Unterprogramme). Ty¬ 
pen. Mengen. Records. Files. 
Dynamische Strukturen. Text 
und Dokumentationshilfen. Inter¬ 
aktiver Verkehr. Ausflug in die 
Hardware. Ausblick. Anhang: 
Pascal Syntax. Fehlermeldung 
des Compilers. 


Basic für 
Mikrocomputer 

Geräte - Begriffe - Befehle - 
Programme. 

Von Herwig Feichtinger 

256 Seiten mit 40 Abbildungen. 
Lwstr-kart. DM 26,- 
ISBN 3-7723-6821-2 


Dieses praxisorientierte Buch ist 
Einführung und Nachschlage¬ 
werk zugleich. Begriffe aus der 
Computer-Fachsprache wie 
ASCII, RS-232-Schnittstelle oder 
lEC-Bus werden ebenso aus¬ 
führlich erläutert wie alle derzeit 
üblichen Befehlsworte der Pro¬ 
grammiersprache Basic. Markt¬ 
übliche Basic-Rechner werden 
einander gegenübergestellt - ei¬ 
nerseits, um vor dem Kauf die 
Qual der Wahl zu erleichtern, an¬ 
dererseits um das Anpassen von 
Programmen an den eigenen 
Rechner zu ermöglichen. Und 
schließlich findet der Leser 
handfeste Tips für das Erstellen 
eigener Programme und Bei¬ 
spiele fertiger Problemlösungen 
für typische Anwendungsfälle. 
Der Autor befaßt sich seit etwa 
1975 mit der Mikrocomputer- 
Technik. Im Rahmen seiner Tä¬ 
tigkeit als FUNKSCHAU-Redak- 
teur arbeitete er mit den meisten 
der hier beschriebenen Geräte 
selbst, was einen objektiven Ver¬ 
gleich möglich machte. 


Franzis-Verlag München 




Weitere 

Franzis Elektronik-Fachbücher 


Von der Schaltalgebra 
zum Mikroprozessor 

Die Mikroprozessoren und ihre 
festverdrahtete und program¬ 
mierbare Logik. 

Von Horst Pelka 
2., verbesserte und erweiterte 
Auflage. 339 Seiten mit 178 Ab¬ 
bildungen und 24 Tabellen. 
Lwstr-kart. DM 28- 
ISBN 3-7723-6422-5 


Mathematische Logik und elek¬ 
tronische Technik ergeben einen 
Mikroprozessor. Hier sind die 
Grundlagen dazu umfassend 
und doch kompakt dargestellt. 
Ausgegangen wird von den binä¬ 
ren Zahlensystemen und Codes, 
um so in die Grundlagen der Di¬ 
gitaltechnik einzudringen. Auf 
die verschiedenen bipolaren und 
MOS-Technologien integrierter 
Schaltungen wird ebenso einge¬ 
gangen, wie auf die Schaltungs¬ 
technische Realisierung von 
Verknüpfungsgliedern. Flip- 
Flops, Schieberegister und Zeit¬ 
schältungen. Fast die Hälfte des 
Buches behandelt die Grundla¬ 
gen und Programmierung von 
Mikroprozessoren. Der Stoff ist 
einfach und klar dargestellt, viele 
Programmbeispiele erleichtern 
das Verständnis. 

Mit diesem Buch lernt der Leser 
das Gebiet der festverdrahteten 
Logik und das der Mikroprozes¬ 
soren kennen. Es ist ihm mög¬ 
lich, Entscheidungen bei der 
Auswahl dieser festverdrahteten 
und programmierbaren Logik zu 
treffen. 


ABC 

der Mikroprozessoren 
und Mikrocomputer 

Neue Fachwörter und Abkürzun¬ 
gen für Elektroniker, Program¬ 
mierer und Praktiker verständ¬ 
lich gemacht. 

Von Horst Pelka 

(= RPB electronic-taschenbuch 

Nr. 135) 

159 Seiten mit 45 Abbildungen. 
Kart. DM 10,80 
ISBN 3-7723-1351-5 

Wer mit Mikroprozessoren und 
Mikrocomputern zu tun hat, soll¬ 
te dieses Taschenbuch immer 
bei sich tragen. Dann sind Ame¬ 
rikanismen und Buchstabenkür¬ 
zel jederzeit verständlich. 

Während einer Diskussion ist 
der Band ein hervorragender 
Spickzettel, der brillieren läßt. 
Bei der Lektüre von Fachzeit¬ 
schriften, Firmendruckschriften 
und Bedienungsanleitungen ist 
er ein zuverlässiges Dictionary 
und auch Glossarium. Die Zahl 
der Stichworte ist sehr groß. 


Was ist ein 
Mikroprozessor? 

Über die Arbeitsweise, Program¬ 
mierung und Anwendung von 
Mikrocomputern. 

Von Horst Pelka 

(= RPB electronic-taschenbuch 

Nr. 82) 

5., neubearbeitete und erweiter¬ 
te Auflage. 130 Seiten mit 58 
Abbildungen und 5 Tabellen. 
Kart. DM 8,80 
ISBN 3-7723-0825-2 

Ja, was ist nun ein Mikroprozes¬ 
sor? Seit wann gibt es ihn über¬ 
haupt? Wie ist er entstanden? 
Hat ihn jemand erfunden? Wie 
ist er aufgebaut? Welche Tech¬ 
nologien werden dabei verwen¬ 
det? Können einzelne Bausteine 
ausgetauscht werden? Ist er ei¬ 
ne Fortentwicklung der Mikro¬ 
computersysteme? Was ist ein 
1-Chip-Mikrocomputer? Wie ist 
seine Arbeitsweise? Ist er pro¬ 
grammierbar? Wie weit? Welche 
Programmiersprachen versteht 
er? Können seine Programme 
geändert werden? Kann das je¬ 
dermann? Ist die Programmie¬ 
rung stromausfallsicher? 

Was leistet ein Mikroprozessor? 
Wie und wo kann er angewandt 
werden? Wird er den Taschen¬ 
computer ersetzen? Gibt es be¬ 
reits Standardtypen? Inwieweit 
unterscheiden sie sich voneinan¬ 
der? Welches sind die Auswahl¬ 
kriterien für Anwendung? 

Fragen über Fragen! Die Ant¬ 
worten gibt dieser Band. 


Franzis-Verlag München 




Klein 

Was ist Pascal? 





Dies ist kein Lehrbuch, sondern eine praxisnahe Arbeitsanleitung 
von Anfang an mit Pascal zu programmieren. Gerade eine schritt¬ 
weise Einführung beantwortet am besten und schnellsten die Frage: 
Was ist Pascal? 

Wer noch nie programmiert hat, wird vom Autor unmittelbar mit 
Pascal bekannt gemacht. Wer schon mit Basic gearbeitet hat, wird 
mühelos auf Pascal umgeschult. Wer schon Pascal kann, lernt mit 
Mikrorechner-Dialekten umzugehen. 

Von anderen Pascal-Büchern unterscheidet sich dieses dadurch, 
daß es auf die Erfordernisse der Mikrocomputer und Heimcomputer 
besonders eingeht. 


Rolf-Dieter Klein 


ISBN 3-7723-7001-2 
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